Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 9165901)
Decrease verbosity in compiler note printing.
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 11:17:53 +0000 (12:17 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 11:17:53 +0000 (12:17 +0100)
src/cmp/cmputil.lsp patch | blob | blame | history

diff --git a/src/cmp/cmputil.lsp b/src/cmp/cmputil.lsp
index 629b930..6d0207f 100644 (file)
--- a/src/cmp/cmputil.lsp
+++ b/src/cmp/cmputil.lsp
@@ -36,7 +36,11 @@
           (let* ((*print-length* 3)
                   (*print-level* 2))
             (format stream "~A: in file ~A, position ~D and top form~%  ~A~%"
-                    prefix file position form))
+                    prefix
+                     (make-pathname :name (pathname-name file)
+                                    :type (pathname-type file)
+                                    :version (pathname-version file))
+                     position form))
           (format stream "~A: " prefix))
        (format stream "~?"
               (simple-condition-format-control c)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)