/[cmucl]/src/hemlock/filecoms.lisp
ViewVC logotype

Diff of /src/hemlock/filecoms.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ram, Wed May 9 13:03:58 1990 UTC revision 1.1.1.1 by ram, Fri Jul 13 14:48:22 1990 UTC
# Line 369  Line 369 
369                       :key #'buffer-pathname :test #'equal)))                       :key #'buffer-pathname :test #'equal)))
370      (cond ((not found)      (cond ((not found)
371             (let* ((name (pathname-to-buffer-name trial-pathname))             (let* ((name (pathname-to-buffer-name trial-pathname))
372                    (buffer (getstring name *buffer-names*))                    (found (getstring name *buffer-names*))
373                    (use (if buffer                    (use (if found
374                             (prompt-for-buffer                             (prompt-for-buffer
375                              :prompt "Buffer to use: "                              :prompt "Buffer to use: "
376                              :help                              :help
377    "Buffer name in use; give another buffer name, or confirm to reuse."    "Buffer name in use; give another buffer name, or confirm to reuse."
378                              :default buffer :must-exist nil)                              :default found :must-exist nil)
379                             (make-buffer name)))                             (make-buffer name)))
380                    (buffer (if (stringp use) (make-buffer use) use)))                    (buffer (if (stringp use) (make-buffer use) use)))
381               (when (and (buffer-modified buffer)               (when (and (buffer-modified buffer)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5