www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

18-strings.lisp (656B)

      1 ;; PRIMITIVE : stringp
      2 ;; NEED : aref
      3 ;; NEED : cond
      4 ;; NEED : characterp
      5 ;; NEED : symbolp
      6 
      7 ;; 18.1-string-access
      8 ;; 18.2-string-comparison
      9 ;; 18.3-string-construction-and-manipulation
     10 
     11 (defun char (string index)
     12   (aref string index))
     13 
     14 (defun schar (string index)
     15   (aref string index))
     16 
     17 (defun string (stuff )
     18   "STUFF must be a string, symbol or character."
     19   (cond ((stringp stuff) stuff)
     20         ((characterp stuff)
     21          ;; TODO
     22          )
     23         ((symbolp stuff)
     24          ;; TODO
     25          )))
     26 
     27 (defun string= (string1 string2 &key (:start1 0) :end1 (:start2 0) :end2)
     28   ;; TODO
     29   )
     30 
     31 (defun make-string (size &key :initial-element)
     32   ;; TODO
     33   )