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

[Frode Vatvedt Fjeld]

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

Modified Files:
	los0.lisp 
Log Message:
Added top-level command :z that prints word values.

Date: Thu Jul  8 14:52:29 2004
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.15 movitz/losp/los0.lisp:1.16
--- movitz/losp/los0.lisp:1.15	Thu Jul  8 11:59:55 2004
+++ movitz/losp/los0.lisp	Thu Jul  8 14:52:29 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.15 2004/07/08 18:59:55 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.16 2004/07/08 21:52:29 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -790,6 +790,15 @@
 	      (format t "~&~Z = ~W" x x))
 	     (t (fresh-line)
 		(write x :radix nil :base (case *print-base* (10 16) (t 10)))))
+	   x))
+    (if x-list
+	(do-print (eval x-list))
+      (dolist (x cl:/ (values-list cl:/))
+	(do-print x)))))
+
+(define-toplevel-command :z (&optional x-list)
+  (flet ((do-print (x)
+	   (format t "~&~Z => ~S" x x)
 	   x))
     (if x-list
 	(do-print (eval x-list))