Google
 

Trailing-Edge - PDP-10 Archives - clisp - clisp/upsala/load.cmp
There are no other files named load.cmp in the archive.
;COMPARISON OF SS:<CLISP.UPSALA>LOAD.CLISP.5 AND PS:<VICTOR.CLISP>LOAD.CLISP.8
;OPTIONS ARE    /3

**** FILE SS:<CLISP.UPSALA>LOAD.CLISP.5, 1-2 (18)
; Aida::Ss:<Clisp.Upsala>Load.Clisp.4, 20-Mar-86 03:32:32, Ed: Victor
;  Set *file-being-loaded* to the truename of the file being loaded, so defun
;  can set it as %source-documentation.
; Aida::Ss:<Clisp.Upsala>Load.Clisp.2, 17-Jan-86 12:10:13, Ed: Victor
;  Try to get "real" package of file.
**** FILE PS:<VICTOR.CLISP>LOAD.CLISP.8, 1-2 (18)
***************

**** FILE SS:<CLISP.UPSALA>LOAD.CLISP.5, 1-21 (818)
(export '(load *load-verbose* *file-being-loaded*))
;;; Package-Name isn't defined when this is first loaded
(eval-when (eval load)
  (if (not (fboundp 'package-name))
      (defun package-name (package) "#<Some random package>")))
**** FILE PS:<VICTOR.CLISP>LOAD.CLISP.8, 1-16 (517)
(export '(load *load-verbose*))
***************

**** FILE SS:<CLISP.UPSALA>LOAD.CLISP.5, 1-34 (1233)
(defvar *file-being-loaded* nil
  "While the system is loading a file, this is the truename of the file.
  The rest of the time it is nil.")
**** FILE PS:<VICTOR.CLISP>LOAD.CLISP.8, 1-24 (726)
***************

**** FILE SS:<CLISP.UPSALA>LOAD.CLISP.5, 1-52 (1752)
	    (eval sexpr))))
**** FILE PS:<VICTOR.CLISP>LOAD.CLISP.8, 1-38 (1099)
	    (eval sexpr))))))
***************

**** FILE SS:<CLISP.UPSALA>LOAD.CLISP.5, 1-95 (3237)
	    (format t "~&;Loading ~A into package ~A.~%"
		    stream (package-name (pathname-package stream)))
	    (format t "~&;Loading ~A into package ~A.~%"
		    (namestring (truename stream))
		    (package-name (pathname-package stream)))))
    (unwind-protect
     (let ((*file-being-loaded* (truename stream)))
       (sloload stream))
     (close stream)))
  t)
(defun pathname-package (pathname)
  "Returns the package of the file referred"
  (with-open-file (stream pathname :direction :input)
    (let ((*package* *package*))
      (flet ((is-package-decl (expr)
	         (and (string-equal (symbol-name (first expr)) "IN-PACKAGE")
		      (eval expr))))
	 (or (is-package-decl (read stream nil nil))
	     (is-package-decl (read stream nil nil))
	     (is-package-decl (read stream nil nil))
	     *package*)))))
**** FILE PS:<VICTOR.CLISP>LOAD.CLISP.8, 1-81 (2586)
	    (format t "~&;Loading from ~A.~%" stream)
	    (format t "~&;Loading from ~A.~%"(namestring (truename stream)))))
    (unwind-protect
     (sloload stream)
     (close stream)))
  t)
***************