[closure-cvs] CVS closure/src/glisp

Update of /project/closure/cvsroot/closure/src/glisp In directory clnet:/tmp/cvs-serv10739/src/glisp

Modified Files: dep-sbcl.lisp Log Message: Use character instead of base-char for GLISP strings (base-char is only 7 bits wide in Unicode-enabled SBCL builds).

--- /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp 2005/03/13 18:01:15 1.2 +++ /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp 2006/12/30 15:00:28 1.3 @@ -91,7 +91,7 @@ ;;;;;;

(defun glisp::g/make-string (length &rest options) - (apply #'make-array length :element-type 'base-char options)) + (apply #'make-array length :element-type 'character options))