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

Modified Files: movitz.lisp Log Message: Removed some garbage code lying around in here.

Date: Thu Jan 15 13:59:39 2004 Author: ffjeld

Index: movitz/movitz.lisp diff -u movitz/movitz.lisp:1.1.1.1 movitz/movitz.lisp:1.2 --- movitz/movitz.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/movitz.lisp Thu Jan 15 13:59:38 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Oct 9 20:52:58 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: movitz.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: movitz.lisp,v 1.2 2004/01/15 18:59:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -108,27 +108,6 @@

(defmacro muerte::movitz-backquote (form) (un-backquote form 0)) - -(defun f1 (x) (cons 'f1 x)) -(defun f2 () (f1 'f2)) -(defun f3 () (cons (f1 'f3-arg) (f2))) -(defun f4 () (values)) -(defun f5 () (values 'val1 'val2 'val3 'val4)) - - -(defconstant xx (list 'a 'b 'c)) - -(defun pingle (val) - (case val - (1 'x) - (2 'y))) - -(let ((var 'top)) - (defun s1 (val) (setf var val)) - (defun r1 () - var) - (setf var 'bot) - (defun r2 () var))

#+allegro (excl:defsystem :movitz ()