[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	basic-macros.lisp 
Log Message:
Made defpackage a bit smarter about recognizing nicknames.

Date: Wed Jul 21 15:30:15 2004
Author: ffjeld

Index: movitz/losp/muerte/basic-macros.lisp
diff -u movitz/losp/muerte/basic-macros.lisp:1.30 movitz/losp/muerte/basic-macros.lisp:1.31
--- movitz/losp/muerte/basic-macros.lisp:1.30	Wed Jul 21 07:17:35 2004
+++ movitz/losp/muerte/basic-macros.lisp	Wed Jul 21 15:30:14 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: basic-macros.lisp,v 1.30 2004/07/21 14:17:35 ffjeld Exp $
+;;;; $Id: basic-macros.lisp,v 1.31 2004/07/21 22:30:14 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -73,7 +73,8 @@
   (pushnew '(:use) options :key #'car)
   (let ((uses (cdr (assoc :use options))))
     (setf uses (mapcar (lambda (use)
-			 (if (member use '(:cl :common-lisp) :test #'string=)
+			 (if (member use (cons :common-lisp (package-nicknames :common-lisp))
+				     :test #'string=)
 			     :muerte.cl
 			   use))
 		       uses))