Skip to content
Snippets Groups Projects
Commit 5bb3c092 authored by wlott's avatar wlott
Browse files

Changed the return value of SET-SYNTAX-FROM-CHAR from NIL to T as per X3J13

cleanup RETURN-VALUES-UNSPECIFIED:SPECIFY.  [Hard to believe nobody has
complained about not conforming to this one.]
parent 41217254
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.12 1992/02/14 17:46:47 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.13 1992/04/02 03:50:54 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -286,8 +286,8 @@ ...@@ -286,8 +286,8 @@
(set-cat-entry to-char att to-readtable) (set-cat-entry to-char att to-readtable)
(set-cmt-entry to-char (set-cmt-entry to-char
(get-cmt-entry from-char from-readtable) (get-cmt-entry from-char from-readtable)
to-readtable) to-readtable)))
NIL))) t)
(defun set-macro-character (char function &optional (defun set-macro-character (char function &optional
(non-terminatingp nil) (rt *readtable*)) (non-terminatingp nil) (rt *readtable*))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment