/[cmucl]/src/code/extensions.lisp
ViewVC logotype

Diff of /src/code/extensions.lisp

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

revision 1.1 by ram, Tue Feb 6 17:24:14 1990 UTC revision 1.2 by ram, Mon Mar 19 11:45:26 1990 UTC
# Line 14  Line 14 
14  ;;; **********************************************************************  ;;; **********************************************************************
15  (in-package "EXTENSIONS")  (in-package "EXTENSIONS")
16    
17  (export '(letf* letf dovector deletef indenting-further  (export '(letf* letf dovector deletef indenting-further file-comment
18                  read-char-no-edit listen-skip-whitespace concat-pnames                  read-char-no-edit listen-skip-whitespace concat-pnames
19                  iterate once-only collect do-anonymous undefined-value))                  iterate once-only collect do-anonymous undefined-value))
20    
21  (import 'lisp::whitespace-char-p)  (import 'lisp::whitespace-char-p)
22    
23    
24    
25  ;;; Undefined-Value  --  Public  ;;; Undefined-Value  --  Public
26  ;;;  ;;;
27  ;;;    This is here until we figure out what to do with it.  ;;;    This is here until we figure out what to do with it.
# Line 30  Line 31 
31    '%undefined%)    '%undefined%)
32    
33    
34    ;;; FILE-COMMENT  --  Public
35    ;;;
36    (defmacro file-comment (string)
37      "FILE-COMMENT String
38      When COMPILE-FILE sees this form at top-level, it places the constant string
39      in the run-time source location information.  DESCRIBE will print the file
40      comment for the file that a function was defined in.  The string is also
41      textually present in the FASL, so the RCS \"ident\" command can find it,
42      etc."
43      (declare (ignore string))
44      '(undefined-value))
45    
46    
47  (defun skip-whitespace (&optional (stream *standard-input*))  (defun skip-whitespace (&optional (stream *standard-input*))
48    (loop (let ((char (read-char stream)))    (loop (let ((char (read-char stream)))
49            (if (not (lisp::whitespacep char))            (if (not (lisp::whitespacep char))

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

  ViewVC Help
Powered by ViewVC 1.1.5