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

Modified Files: functions.lisp Log Message: Removed small pieces of dead code.

Date: Wed Mar 24 15:40:41 2004 Author: ffjeld

Index: movitz/losp/muerte/functions.lisp diff -u movitz/losp/muerte/functions.lisp:1.4 movitz/losp/muerte/functions.lisp:1.5 --- movitz/losp/muerte/functions.lisp:1.4 Wed Mar 24 08:33:21 2004 +++ movitz/losp/muerte/functions.lisp Wed Mar 24 15:40:40 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Mar 12 22:58:54 2002 ;;;; -;;;; $Id: functions.lisp,v 1.4 2004/03/24 13:33:21 ffjeld Exp $ +;;;; $Id: functions.lisp,v 1.5 2004/03/24 20:40:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -56,8 +56,7 @@ complement-prototype (function ,(movitz:movitz-eval (translate-program function-form :cl :muerte.cl))))) - (t #+ignore (error "Non-constant complement forms not yet supported: ~S" form) - form))) + (t form)))

(defun complement (function) (lambda (&rest args) @@ -72,8 +71,7 @@ (compiled-function (funobj-name edx)) (t '(unknown))))) - (error 'undefined-function :name function-name) - #+ignore (error "Unbound function-name ~S called with arguments ~S." function-name args))) + (error 'undefined-function :name function-name)))

;;; funobj object