common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Spell "Clozure" correctly, and don't use pointerp

Browse source
This commit is contained in:
Douglas Katzman 2025-11-09 19:11:00 +00:00
parent f8e9d55da0
commit 2eecae14d7
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/code/reader.lisp
View file

@ -91,7 +91,7 @@
(setf (aref (base-char-syntax-array readtable) (char-code char)) attributes
(aref (base-char-macro-array readtable) (char-code char)) function)
(let ((table (extended-char-table readtable)))
(cond ((or (pointerp function) (/= attributes +char-attr-constituent+))
(cond ((or (not (eql function 0)) (/= attributes +char-attr-constituent+))
(when (eq table *empty-extended-char-table*) ; copy-on-write
(setf table (make-hash-table :test 'eq)
(extended-char-table readtable) table))

2
tests/reader.impure.lisp
View file

@ -210,7 +210,7 @@
;; Choice (1) fail at the call to SET-MACRO-CHARACTER
;; CLISP: (set-macro-character #\$ nil) => "undefined function NIL"
;; Choice (2) remove the macro, causing #\$ become normal syntax.
;; ABCL and Closure both do this
;; ABCL and Clozure both do this
;; Choice (3) fail when reading the character #\$
;; GCL: "Cell error on NIL: Undefined function"
;; ECL: "The function NIL is undefined."