"#u takes a string or list argument: ~s" arg)))))
-#+allegro
-excl::
-#+allegro
-(locally (declare (special std-lisp-readtable))
- (let ((*readtable* std-lisp-readtable))
- (set-dispatch-macro-character #\# #\u #'puri::sharp-u)))
-#-allegro
(set-dispatch-macro-character #\# #\u #'puri::sharp-u)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;