[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv22556

Modified Files:
	eval.lisp 
Log Message:
Added trivial constantp and macro-function.


--- /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp	2005/04/20 06:53:23	1.17
+++ /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp	2007/02/26 18:22:27	1.18
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 19 21:15:12 2001
 ;;;;                
-;;;; $Id: eval.lisp,v 1.17 2005/04/20 06:53:23 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.18 2007/02/26 18:22:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -444,3 +444,17 @@
   ;; What do do?
   (warn "Unknown declaration: ~S" declaration)
   (values))
+
+
+(defun constantp (form &optional environment)
+  (typecase form
+    (boolean t)
+    (keyword t)
+    (symbol nil)
+    (cons (eq 'quote (car form)))
+    (t t)))
+
+(defun macro-function (symbol &optional environment)
+  "=> function"
+  (declare (ignore symbol environment))
+  nil)