Changeset 5123


Ignore:
Timestamp:
12/14/03 04:02:10 (18 years ago)
Author:
piso
Message:

PACKAGE-COMMAND

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/top-level.lisp

    r5115 r5123  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.18 2003-12-13 01:49:57 piso Exp $
     4;;; $Id: top-level.lisp,v 1.19 2003-12-14 04:02:10 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    102102         (setf args (nstring-upcase args))
    103103         (let ((pkg (find-package args)))
    104            (unless pkg
    105              (format *standard-output* "Unknown package ~A.~%" args))
    106            (setf *old-package* *package*
    107                  *package* pkg)))))
     104           (if pkg
     105               (setf *old-package* *package*
     106                     *package* pkg)
     107               (format *standard-output* "Unknown package ~A.~%" args))))))
    108108
    109109(defun reset-command (ignored)
Note: See TracChangeset for help on using the changeset viewer.