change for allegrocl 8.2beta

2009-11-11 12:15:04 -07:00
parent e523dcc81f
commit f181b50e62
2 changed files with 6 additions and 7 deletions
--- a/src.lisp
+++ b/src.lisp
@ -1315,13 +1315,6 @@ Executes the forms once for each uri with var bound to the current uri"
          "#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)

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;