X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefpackage.lisp;h=08ca514e0a96ed633925b4e94b110c40950f6f9f;hb=b0b168c08b31a748150f404398af754f26fd4813;hp=31a9e7da86ee9c3b6e980106d23f16dd6075a55e;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/defpackage.lisp b/src/code/defpackage.lisp
index 31a9e7d..08ca514 100644
--- a/src/code/defpackage.lisp
+++ b/src/code/defpackage.lisp
@@ -37,7 +37,7 @@
 	(doc nil))
     (dolist (option options)
       (unless (consp option)
-	(error 'program-error
+	(error 'simple-program-error
 	       :format-control "bogus DEFPACKAGE option: ~S"
 	       :format-arguments (list option)))
       (case (car option)
@@ -45,14 +45,14 @@
 	 (setf nicknames (stringify-names (cdr option) "package")))
 	(:size
 	 (cond (size
-		(error 'program-error
+		(error 'simple-program-error
 		       :format-control "can't specify :SIZE twice."))
 	       ((and (consp (cdr option))
 		     (typep (second option) 'unsigned-byte))
 		(setf size (second option)))
 	       (t
 		(error
-		 'program-error
+		 'simple-program-error
 		 :format-control ":SIZE is not a positive integer: ~S"
 		 :format-arguments (list (second option))))))
 	(:shadow
@@ -86,11 +86,11 @@
 	   (setf exports (append exports new))))
 	(:documentation
 	 (when doc
-	   (error 'program-error
+	   (error 'simple-program-error
 		  :format-control "multiple :DOCUMENTATION options"))
 	 (setf doc (coerce (second option) 'simple-string)))
 	(t
-	 (error 'program-error
+	 (error 'simple-program-error
 		:format-control "bogus DEFPACKAGE option: ~S"
 		:format-arguments (list option)))))
     (check-disjoint `(:intern ,@interns) `(:export  ,@exports))
@@ -113,7 +113,7 @@
       with x = (car list)
       for y in (rest list)
       for z = (remove-duplicates (intersection (cdr x)(cdr y) :test #'string=))
-      when z do (error 'program-error
+      when z do (error 'simple-program-error
 		       :format-control "Parameters ~S and ~S must be disjoint ~
 					but have common elements ~%   ~S"
 		       :format-arguments (list (car x)(car y) z)))))
@@ -128,8 +128,8 @@
      (error "bogus ~A name: ~S" kind name))))
 
 (defun stringify-names (names kind)
-  (mapcar #'(lambda (name)
-	      (stringify-name name kind))
+  (mapcar (lambda (name)
+	    (stringify-name name kind))
 	  names))
 
 (defun %defpackage (name nicknames size shadows shadowing-imports
@@ -190,7 +190,7 @@
 		  package))))
     ;; Handle exports.
     (let ((old-exports nil)
-	  (exports (mapcar #'(lambda (sym-name) (intern sym-name package))
+	  (exports (mapcar (lambda (sym-name) (intern sym-name package))
 			   exports)))
       (do-external-symbols (sym package)
 	(push sym old-exports))