Ignore:
Timestamp:
09/14/03 16:27:48 (19 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/with-package-iterator.lisp

    r3763 r3765  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: with-package-iterator.lisp,v 1.2 2003-09-14 16:04:38 piso Exp $
     4;;; $Id: with-package-iterator.lisp,v 1.3 2003-09-14 16:27:48 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2828        (setq pkg (find-package pkg))
    2929        (unless pkg
    30           (error "not a package")))
     30          (error 'package-error "not a package")))
    3131      (when (memq :internal symbol-types)
    3232        (dolist (sym (package-internal-symbols pkg))
Note: See TracChangeset for help on using the changeset viewer.