[Mit-cadr-cvs] r311 - trunk/lisp/sys

[rswindells at common-lisp.net]

Author: rswindells
Date: Sun Oct 21 11:45:12 2012
New Revision: 311

Log:
Change definition of DEFSITE-1 to match that in sys99.

Modified:
   trunk/lisp/sys/qmisc.lisp

Modified: trunk/lisp/sys/qmisc.lisp
==============================================================================
--- trunk/lisp/sys/qmisc.lisp	Sun Oct 21 11:27:57 2012	(r310)
+++ trunk/lisp/sys/qmisc.lisp	Sun Oct 21 11:45:12 2012	(r311)
@@ -1312,10 +1312,10 @@
 (DEFMACRO DEFSITE (SITE &BODY OPTIONS)
   `(DEFSITE-1 ',SITE ',OPTIONS))
 
-(DEFUN DEFSITE-1 (SITE OPTIONS)
-  (AND (EQ SITE SITE-NAME)
-       (SETQ SITE-OPTION-ALIST (LOOP FOR (KEY EXP) IN OPTIONS
-				     COLLECT `(,KEY . ,(EVAL EXP))))))
+(DEFUN DEFSITE-1 (NEW-SITE OPTIONS)
+  (SETQ SITE-NAME NEW-SITE)
+  (SETQ SITE-OPTION-ALIST (LOOP FOR (KEY EXP) IN OPTIONS
+				COLLECT `(,KEY . ,(EVAL EXP)))))
 
 (DEFUN GET-SITE-OPTION (KEY)
   (CDR (ASSQ KEY SITE-OPTION-ALIST)))