Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv5309
Modified Files: basic-functions.lisp Log Message: error -> program-error (as per ANSI).
--- /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp 2008/03/15 20:57:14 1.24 +++ /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp 2008/04/08 21:40:33 1.25 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 4 18:41:57 2001 ;;;; -;;;; $Id: basic-functions.lisp,v 1.24 2008/03/15 20:57:14 ffjeld Exp $ +;;;; $Id: basic-functions.lisp,v 1.25 2008/04/08 21:40:33 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -287,7 +287,8 @@ ;; spread out args. (cond ((null args) - (error "Too few arguments to APPLY.")) + (error 'program-error + :format-control "Too few arguments to APPLY.")) ((null (cdr args)) (apply function (car args))) (t (let* ((second-last-cons (last args 2))