/[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.5 by camm, Fri Apr 15 21:31:52 2005 UTC revision 1.6 by mjthomas, Fri Apr 29 09:48:51 2005 UTC
# Line 600  and load your system with: Line 600  and load your system with:
600                                  (:source (car *system-directory*))                                  (:source (car *system-directory*))
601                                  (:binary (cdr *system-directory*)))))))                                  (:binary (cdr *system-directory*)))))))
602           (dir (pathname-directory directory))           (dir (pathname-directory directory))
603           (ldir nil)           (ldir (if (consp dir)
604                       dir
605  ;        (if (consp dir)                   (pathname-directory (truename directory))))
 ;                  dir  
 ;                  (pathname-directory (truename directory))))  
606    
607           (port-dname (when (and port           (port-dname (when (and port
608                                  (or *put-impl-binaries-in-impl-directory-p*                                  (or *put-impl-binaries-in-impl-directory-p*
609                                      (eq type ':source)))                                      (eq type ':source)))
610                         (cdr (assoc port *port+dname-list*))))                         (cdr (assoc port *port+dname-list*))))
          (port-directory (if port-dname  
                              (append ldir (list "impl" port-dname))  
                              ldir))  
                               
611  ;        (port-directory (if port-dname  ;        (port-directory (if port-dname
612  ;                            (append ldir (list "impl" port-dname))  ;                            (append ldir (list "impl" port-dname))
613  ;                            ldir))  ;                            ldir))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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