/[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.10 by camm, Sat Jul 23 08:55:17 2005 UTC revision 1.11 by camm, Wed Sep 7 03:01:58 2005 UTC
# Line 467  and load your system with: Line 467  and load your system with:
467  (defun operation-transformations (name mode &optional arg)  (defun operation-transformations (name mode &optional arg)
468    (let ((system (get-system name)))    (let ((system (get-system name)))
469      (unless system (error "Can't find system with name ~S." name))      (unless system (error "Can't find system with name ~S." name))
470      (let ((*system-directory* (funcall (the function (car system))))      (let ((*system-directory* (funcall (car system))) ;(the function (car system))
471            (modules (cadr system)))            (modules (cadr system)))
472        (ecase mode        (ecase mode
473          (:compile          (:compile
# Line 539  and load your system with: Line 539  and load your system with:
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))
542      (let* ((*system-directory* (funcall (the function (car system))))      (let* ((*system-directory* (funcall (car system))) ; (the function (car system))
543             (transformations (operation-transformations name mode arg)))             (transformations (operation-transformations name mode arg)))
544        (labels ((load-binary (name pathname)        (labels ((load-binary (name pathname)
545                   (format t "~&Loading binary of ~A...~%" name)                   (format t "~&Loading binary of ~A...~%" name)
# Line 639  and load your system with: Line 639  and load your system with:
639  (defun system-source-files (name)  (defun system-source-files (name)
640    (let ((system (get-system name)))    (let ((system (get-system name)))
641      (unless system (error "Can't find system with name ~S." name))      (unless system (error "Can't find system with name ~S." name))
642      (let ((*system-directory* (funcall (the function (car system))))      (let ((*system-directory* (funcall (car system))) ;(the function (car system))
643            (modules (cadr system)))            (modules (cadr system)))
644        (mapcar #'make-source-pathname modules))))        (mapcar #'make-source-pathname modules))))
645    
646  (defun system-binary-files (name)  (defun system-binary-files (name)
647    (let ((system (get-system name)))    (let ((system (get-system name)))
648      (unless system (error "Can't find system with name ~S." name))      (unless system (error "Can't find system with name ~S." name))
649      (let ((*system-directory* (funcall (the function (car system))))      (let ((*system-directory* (funcall (car system))) ;(the function (car system))
650            (modules (cadr system)))            (modules (cadr system)))
651        (mapcar #'make-binary-pathname modules))))        (mapcar #'make-binary-pathname modules))))
652    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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