Changeset 3765 for trunk/j/src/org/armedbear/lisp/with-package-iterator.lisp

Timestamp:

09/14/03 16:27:48 (19 years ago)

Author:

piso

Message:

error => package-error (if package doesn't exist)

File:

• trunk/j/src/org/armedbear/lisp/with-package-iterator.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/with-package-iterator.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: with-package-iterator.lisp,v 1.2 2003-09-14 16:04:38 piso Exp $
+;;; $Id: with-package-iterator.lisp,v 1.3 2003-09-14 16:27:48 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -28 +28 @@
         (setq pkg (find-package pkg))
         (unless pkg
-          (error "not a package")))
+          (error 'package-error "not a package")))
       (when (memq :internal symbol-types)
         (dolist (sym (package-internal-symbols pkg))