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)
***************