Hello,
I did following on LCL and AKCL, and got different results.
Which is correct?
;;;
;;; LCL 4.0
;;;
> (setq readtable (copy-readtable))
#<Readtable F70DB6>
> (get-dispatch-macro-character #\# #\! readtable)
NIL
> (let ((*readtable* readtable)) (set-macro-character #\# ()))
T
> (get-dispatch-macro-character #\# #\! readtable)
NIL
>
;;;
;;; AKCL 1.615
;;;
>(setq readtable (copy-readtable))
#<readtable 00c95750>
>(get-dispatch-macro-character #\# #\! readtable)
#<compile-function 00c95a40>
>(let ((*readtable* readtable)) (set-macro-character #\# ()))
T
>(get-dispatch-macro-character #\# #\! readtable)
Error: #\# is not a dispatch character.
Fast links are on: do (use-fast-links nil) for debugging
Error signalled by GET-DISPATCH-MACRO-CHARACTER.
Broken at GET-DISPATCH-MACRO-CHARACTER. Type :H for Help.
>>
--
;;; Atushi Nogi
;;; ·······@is.aist-nara.ac.jp