Skip to content
Snippets Groups Projects
Commit 3992809b authored by wlott's avatar wlott
Browse files

Protected SET against *KEYWORD-PACKAGE* being unbound, which can happen

while running initial top-level forms.
parent adf84605
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/symbol.lisp,v 1.9 1992/02/24 01:46:19 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.10 1992/03/02 17:22:49 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -48,15 +48,15 @@ ...@@ -48,15 +48,15 @@
"VARIABLE must evaluate to a symbol. This symbol's special value cell is "VARIABLE must evaluate to a symbol. This symbol's special value cell is
set to the specified new value." set to the specified new value."
(declare (type symbol variable)) (declare (type symbol variable))
(etypecase variable (cond ((null variable)
(null (error "Nihil ex nihil, can't set NIL."))
(error "Nilhil ex nilhil (Can't set NIL).")) ((eq variable t)
((member t) (error "Veritas aeterna, can't set T."))
(error "Can't set T.")) ((and (boundp '*keyword-package*)
(keyword (keywordp variable))
(error "Can't set keywords.")) (error "Can't set keywords."))
(symbol (t
(%set-symbol-value variable new-value)))) (%set-symbol-value variable new-value))))
(defun %set-symbol-value (symbol new-value) (defun %set-symbol-value (symbol new-value)
(%set-symbol-value symbol new-value)) (%set-symbol-value symbol new-value))
......
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