Changeset 9240 for trunk/j/src/org/armedbear/lisp/apropos.lisp

Timestamp:

05/24/05 18:45:24 (18 years ago)

Author:

piso

Message:

Added a couple of declarations.

File:

• trunk/j/src/org/armedbear/lisp/apropos.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/apropos.lisp

@@ -1 +1 @@
 ;;; apropos.lisp
 ;;;
-;;; Copyright (C) 2003 Peter Graves
-;;; $Id: apropos.lisp,v 1.2 2003-10-06 13:26:50 piso Exp $
+;;; Copyright (C) 2003-2005 Peter Graves
+;;; $Id: apropos.lisp,v 1.3 2005-05-24 18:45:24 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -20 +20 @@
 ;;; Adapted from SBCL.
 
-(in-package "SYSTEM")
+(in-package #:system)
 
 (resolve 'write-string)
@@ -30 +30 @@
             (result nil))
         (dolist (symbol (package-external-symbols package))
+          (declare (type symbol symbol))
           (when (search string (symbol-name symbol) :test #'char-equal)
             (push symbol result)))
         (dolist (symbol (package-internal-symbols package))
+          (declare (type symbol symbol))
           (when (search string (symbol-name symbol) :test #'char-equal)
             (push symbol result)))