Skip to content
Snippets Groups Projects
Commit cc57ed31 authored by ram's avatar ram
Browse files

.../systems-work/code/reader.lisp, 10-Feb-90 13:14:40, Edit by MBB.

  Made GET-MACRO-CHARACTER and GET-DISPATCH-MACRO-CHARACTER use the default
  readtable when nil is supplied for the readtable argument.  This is a
  cleanup.
parent 9c80090d
No related branches found
No related tags found
No related merge requests found
......@@ -260,6 +260,7 @@
"Returns the function associated with the specified char
which is a macro character. The optional readtable argument
defaults to the current readtable."
(when (null rt) (setf rt *readtable*))
;;check macro syntax, return associated function if it's there.
;;returns a value for all constituents.
(cond ((constituentp char)
......@@ -1175,6 +1176,7 @@
&optional (rt *readtable*))
"Returns the macro character function for sub-char under disp-char
or nil if there is no associated function."
(when (null rt) (setf rt *readtable*))
(let ((dpair (find disp-char (dispatch-tables rt)
:test #'char= :key #'car)))
(if dpair
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment