Ignore:
Timestamp:
05/24/05 18:45:24 (16 years ago)
Author:
piso
Message:

Added a couple of declarations.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/apropos.lisp

    r4217 r9240  
    11;;; apropos.lisp
    22;;;
    3 ;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: apropos.lisp,v 1.2 2003-10-06 13:26:50 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: apropos.lisp,v 1.3 2005-05-24 18:45:24 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020;;; Adapted from SBCL.
    2121
    22 (in-package "SYSTEM")
     22(in-package #:system)
    2323
    2424(resolve 'write-string)
     
    3030            (result nil))
    3131        (dolist (symbol (package-external-symbols package))
     32          (declare (type symbol symbol))
    3233          (when (search string (symbol-name symbol) :test #'char-equal)
    3334            (push symbol result)))
    3435        (dolist (symbol (package-internal-symbols package))
     36          (declare (type symbol symbol))
    3537          (when (search string (symbol-name symbol) :test #'char-equal)
    3638            (push symbol result)))
Note: See TracChangeset for help on using the changeset viewer.