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

Modified Files: symbols.lisp Log Message: Fixed a horrible bug in %create-symbol.

Date: Wed Apr 21 10:00:16 2004 Author: ffjeld

Index: movitz/losp/muerte/symbols.lisp diff -u movitz/losp/muerte/symbols.lisp:1.11 movitz/losp/muerte/symbols.lisp:1.12 --- movitz/losp/muerte/symbols.lisp:1.11 Fri Apr 16 19:36:40 2004 +++ movitz/losp/muerte/symbols.lisp Wed Apr 21 10:00:15 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.11 2004/04/16 23:36:40 ffjeld Exp $ +;;;; $Id: symbols.lisp,v 1.12 2004/04/21 14:00:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -149,7 +149,9 @@ (let ((symbol (%word-offset (malloc-clumps 3) 1))) (setf-movitz-accessor (symbol movitz-symbol package) package) (setf-movitz-accessor (symbol movitz-symbol name) name) - (setf-movitz-accessor (symbol movitz-symbol hash-key) (sxhash name)) + (setf (memref symbol #.(bt:slot-offset 'movitz:movitz-symbol 'movitz::hash-key) + 0 :unsigned-byte16) + (sxhash name)) (setf (symbol-flags symbol) flags (symbol-plist symbol) plist (symbol-function symbol) function