mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
4898ef32c6
another slice of whitespace canonicalization (Anyone who ends up here with "cvs annotate" probably wants to look at the "tabby" tagged version.)
17 lines
844 B
Common Lisp
17 lines
844 B
Common Lisp
(eval-when (:compile-toplevel :load-toplevel :execute)
|
|
(setq *readtable* (copy-readtable nil)) ; LOAD binds *readtable*...
|
|
|
|
(set-macro-character #\] (get-macro-character #\)))
|
|
|
|
(set-dispatch-macro-character #\# #\[
|
|
#'(lambda (s c n) (declare (ignore c))
|
|
(let* ((type (if n `(unsigned-byte ,n)
|
|
'(unsigned-byte 8)))
|
|
(list (read-delimited-list #\] s nil))
|
|
(len (length list)))
|
|
(make-array (list len)
|
|
:element-type type
|
|
:initial-contents list)))))
|
|
|
|
(defvar *bug-doug-mcnaught-20030914* '#4[1 2 3])
|