[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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"