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