Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25442

Modified Files: symbols.lisp Log Message: Accessors symbol-special-variable-p and symbol-constant-variable-p were out of sync with storage-types.lisp. This caused e.g. let of special variables not to work in the REPL.

Date: Tue Jul 13 07:06:57 2004 Author: ffjeld

Index: movitz/losp/muerte/symbols.lisp diff -u movitz/losp/muerte/symbols.lisp:1.15 movitz/losp/muerte/symbols.lisp:1.16 --- movitz/losp/muerte/symbols.lisp:1.15 Wed Jul 7 16:22:16 2004 +++ movitz/losp/muerte/symbols.lisp Tue Jul 13 07:06:56 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 4 23:55:41 2001 ;;;; -;;;; $Id: symbols.lisp,v 1.15 2004/07/07 23:22:16 ffjeld Exp $ +;;;; $Id: symbols.lisp,v 1.16 2004/07/13 14:06:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -195,18 +195,18 @@ flags)))

(defun symbol-special-variable-p (symbol) - (logbitp 0 (symbol-flags symbol))) + (logbitp 3 (symbol-flags symbol)))

(defun (setf symbol-special-variable-p) (value symbol) - (setf (ldb (byte 1 0) (symbol-flags symbol)) + (setf (ldb (byte 1 3) (symbol-flags symbol)) (if value 1 0)) value)

(defun symbol-constant-variable-p (symbol) - (logbitp 1 (symbol-flags symbol))) + (logbitp 4 (symbol-flags symbol)))

(defun (setf symbol-constant-variable-p) (value symbol) - (setf (ldb (byte 1 1) (symbol-flags symbol)) + (setf (ldb (byte 1 4) (symbol-flags symbol)) (if value 1 0)) value)