[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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