Skip to content
Snippets Groups Projects
Commit a5528ab3 authored by ram's avatar ram
Browse files

This commit was generated by cvs2svn to compensate for changes in r4327,

which included commits to RCS files with non-trunk default branches.
parents 8311296f f95db22f
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.8 1991/11/12 01:14:36 chiles Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.9 1992/01/14 14:25:49 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -329,8 +329,8 @@
(let* ((region (region (copy-mark (region-start region) :left-inserting)
(copy-mark (region-end region) :left-inserting)))
(buf (line-buffer (mark-line (region-start region))))
(defined-from (and buf
(namestring (buffer-pathname buf)))))
(pn (and buf (buffer-pathname buf)))
(defined-from (if pn (namestring pn) "unknown")))
(queue-note (make-note :kind :compile
:context (region-context region "compilation")
:buffer (and region
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment