Ticket #14430: patch-dev-main.lisp.diff

File patch-dev-main.lisp.diff, 594 bytes (added by rlonstein@…, 16 years ago)

  • main.lisp

    old new  
    118118                    (version (maybe-warn (lisp-version-string)
    119119                                         "Don't know how to get Lisp ~
    120120                                          implementation version.")))
    121                 (format nil "~(~@{~a~^-~}~)" lisp version os arch))))))
     121                (format nil "~(~@{~a~^-~}~)" lisp os arch))))))
    122122
    123123(defun pathname-prefix-p (prefix pathname)
    124124  (not (equal (enough-namestring pathname prefix) (namestring pathname))))