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

Modified Files: image.lisp Log Message: There is no package "excl" always.

Date: Thu Jan 15 12:36:20 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.1.1.1 movitz/image.lisp:1.2 --- movitz/image.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/image.lisp Thu Jan 15 12:36:19 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.2 2004/01/15 17:36:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1378,9 +1378,10 @@ (movitz-print (movitz-funobj-code-vector funobj))))) (when verbose (pprint command) (terpri) (force-output)) - (if destination - (excl::run-shell-command (format nil "./udp6-send.py ~A 1 ~S" destination command)) - command)))) + command + #+allegro (if destination + (excl::run-shell-command (format nil "./udp6-send.py ~A 1 ~S" destination command)) + command))))

;;; "Printer"