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

Added a declaration.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/copy-symbol.lisp

    r5224 r9241  
    11;;; copy-symbol.lisp
    22;;;
    3 ;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: copy-symbol.lisp,v 1.1 2003-12-20 15:20:09 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: copy-symbol.lisp,v 1.2 2005-05-24 18:57:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 (in-package "SYSTEM")
     20(in-package #:system)
    2121
    2222;;; From CMUCL.
    2323
    2424(defun copy-symbol (symbol &optional (copy-props nil) &aux new-symbol)
     25  (declare (type symbol symbol))
    2526  (setq new-symbol (make-symbol (symbol-name symbol)))
    2627  (when copy-props
Note: See TracChangeset for help on using the changeset viewer.