/[gcl]/gcl/pcl/defsys.lisp
ViewVC logotype

Diff of /gcl/pcl/defsys.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Sat May 7 02:52:30 2005 UTC revision 1.8 by mjthomas, Thu May 12 12:02:19 2005 UTC
# Line 536  and load your system with: Line 536  and load your system with:
536    
537  #+cmu17  #+cmu17
538  (defparameter *byte-files* '(defclass defcombin iterate env))  (defparameter *byte-files* '(defclass defcombin iterate env))
   
539  (defun operate-on-system (name mode &optional arg print-only)  (defun operate-on-system (name mode &optional arg print-only)
540    (let ((system (get-system name)))    (let ((system (get-system name)))
541      (unless system (error "Can't find system with name ~S." name))      (unless system (error "Can't find system with name ~S." name))
# Line 619  and load your system with: Line 618  and load your system with:
618  ;                            ldir))  ;                            ldir))
619                                                            
620           (port-directory ldir)           (port-directory ldir)
621             (port-device (if (null port-directory)
622                              nil
623                            (pathname-device port-directory)))
624                                                            
625           (pathname           (pathname
626             (make-pathname             (make-pathname
627               :name (string-downcase (string name))               :name (string-downcase (string name))
628               :type extension               :type extension
629                 :device port-device
630               :directory port-directory               :directory port-directory
631               :defaults directory)))               :defaults directory)))
632    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26