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

Diff of /src/hemlock/lispbuf.lisp

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

revision 1.1.1.1.1.1 by wlott, Fri Aug 3 10:17:19 1990 UTC revision 1.1.1.4 by ram, Fri Feb 8 16:36:05 1991 UTC
# Line 1  Line 1 
1  ;;; -*- Log: hemlock.log; Package: Hemlock -*-  ;;; -*- Log: hemlock.log; Package: Hemlock -*-
2  ;;;  ;;;
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;; This code was written as part of the Spice Lisp project at  ;;; This code was written as part of the CMU Common Lisp project at
5  ;;; Carnegie-Mellon University, and has been placed in the public domain.  ;;; Carnegie Mellon University, and has been placed in the public domain.
6  ;;; Spice Lisp is currently incomplete and under active development.  ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7  ;;; If you want to use this code or any part of Spice Lisp, please contact  ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8  ;;; Scott Fahlman (FAHLMAN@CMUC).  ;;;
9    (ext:file-comment
10      "$Header$")
11    ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
14  ;;; Stuff to do a little lisp hacking in the editor's Lisp environment.  ;;; Stuff to do a little lisp hacking in the editor's Lisp environment.
# Line 429  Line 432 
432     (with-input-from-region (stream region)     (with-input-from-region (stream region)
433       (with-pop-up-display (*error-output* :height 19)       (with-pop-up-display (*error-output* :height 19)
434         (c::compile-from-stream stream         (c::compile-from-stream stream
435                                 :defined-from-pathname                                 :source-info
436                                 (buffer-pathname (current-buffer)))))))                                 (buffer-pathname (current-buffer)))))))
437    
438    

Legend:
Removed from v.1.1.1.1.1.1  
changed lines
  Added in v.1.1.1.4

  ViewVC Help
Powered by ViewVC 1.1.5