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

[Frode Vatvedt Fjeld]

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

Modified Files:
	packages.lisp 
Log Message:
*** empty log message ***
Date: Sat Nov 13 15:50:13 2004
Author: ffjeld

Index: movitz/losp/muerte/packages.lisp
diff -u movitz/losp/muerte/packages.lisp:1.5 movitz/losp/muerte/packages.lisp:1.6
--- movitz/losp/muerte/packages.lisp:1.5	Thu Oct 21 22:50:19 2004
+++ movitz/losp/muerte/packages.lisp	Sat Nov 13 15:50:13 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Aug 30 15:19:43 2001
 ;;;;                
-;;;; $Id: packages.lisp,v 1.5 2004/10/21 20:50:19 ffjeld Exp $
+;;;; $Id: packages.lisp,v 1.6 2004/11/13 14:50:13 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -172,10 +172,10 @@
 	      ((keywordp symbol)
 	       (format t "~&~W == keyword~%" symbol))
 	      ((fboundp symbol)
-	       (format t "~&~W == function arglist: ~A~%"
+	       (format t "~&~W == function ~:A~%"
 		       symbol (funobj-lambda-list (symbol-function symbol))))
 	      ((boundp symbol)
-	       (format t "~&~W == variable value: ~S~%"
+	       (format t "~&~W == variable ~S~%"
 		       symbol (symbol-value symbol)))
 	      (t (format t "~&~W~%" symbol))))))
     (let ((string (string string)))