Changeset 8685


Ignore:
Timestamp:
Mar 7, 2008, 8:43:28 PM (12 years ago)
Author:
gz
Message:

More bandaids

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r8681 r8685  
    16181618  (when (typep string '(array (unsigned-byte 8)))
    16191619    (return-from %fast-compact string))
     1620  (when (null string)
     1621    (return-from %fast-compact nil))
    16201622  (let ((vec (make-array (length string) :element-type '(unsigned-byte 8))))
    16211623    (loop
     
    16301632
    16311633(defun %fast-uncompact (data)
    1632   (if (stringp data)
     1634  (if (or (stringp data) (null data))
    16331635    data
    16341636    (let ((string (make-array (length data) :element-type 'character)))
Note: See TracChangeset for help on using the changeset viewer.