'("No generic function ~S present when encountering macroexpansion of defmethod. Assuming it will be an instance of standard-generic-function.")) ;; from closer2mop
"A suggested value to which to set or bind *uninteresting-conditions*.")
...
...
@@ -5524,7 +5536,8 @@ possibly in a different process. Otherwise just call THUNK."
(or *compile-file-pathname* *load-pathname*))
(defun load-pathname ()
"Portably return the LOAD-PATHNAME of the current source file or fasl"
"Portably return the LOAD-PATHNAME of the current source file or fasl.
May return a relative pathname."
*load-pathname*) ;; magic no longer needed for GCL.
(defun lispize-pathname (input-file)
...
...
@@ -5603,6 +5616,8 @@ it will filter them appropriately."