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

[Frode Vatvedt Fjeld]

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 ()