Changeset 12371


Ignore:
Timestamp:
Jul 8, 2009, 4:47:03 AM (10 years ago)
Author:
rme
Message:

Purge extended-string, simple-extended-string.

Location:
trunk/source/level-1
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r12300 r12371  
    452452          (setf (%get-unsigned-byte s i) (%scharcode data (+ offset i))))
    453453        s))))
    454 
    455 
    456 (defun extended-string-p (thing)
    457   (declare (ignore thing)))
    458 
    459 (defun simple-extended-string-p (thing)
    460   (declare (ignore thing)))
    461 
    462 
    463454
    464455(defun move-string-bytes (source dest off1 off2 n)
  • trunk/source/level-1/l1-typesys.lisp

    r12045 r12371  
    39433943  `(simple-array character (,size)))
    39443944
    3945 (deftype extended-string (&optional size)
    3946   (declare (ignore size))
    3947   'nil)
    3948 
    3949 (deftype simple-extended-string (&optional size)
    3950   (declare (ignore size))
    3951   'nil)
    3952 
    39533945(deftype bit-vector (&optional size)
    39543946  `(array bit (,size)))
  • trunk/source/level-1/l1-utils.lisp

    r12163 r12371  
    503503simple-string
    504504simple-base-string
    505 simple-extended-string
    506505simple-vector
    507506single-float
  • trunk/source/level-1/sysutils.lisp

    r12045 r12371  
    6767    (simple-array . simple-array-p)
    6868    (simple-base-string . simple-base-string-p)
    69     (simple-extended-string . simple-extended-string-p)
    7069    (simple-bit-vector . simple-bit-vector-p)
    7170    (simple-string . simple-string-p)
     
    7473    (stream . streamp)
    7574    (string . stringp)
    76     (extended-string . extended-string-p)
    7775    (base-char . base-char-p)
    7876    (extended-char . extended-char-p)
Note: See TracChangeset for help on using the changeset viewer.