File: bug-doug-mcnaught-20030914.lisp

package info (click to toggle)
sbcl 1%3A0.9.16.0-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 19,960 kB
  • ctags: 16,537
  • sloc: lisp: 231,164; ansic: 19,558; asm: 2,539; sh: 1,925; makefile: 308
file content (16 lines) | stat: -rw-r--r-- 844 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(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])