Changeset 8921


Ignore:
Timestamp:
Mar 28, 2008, 8:29:41 AM (11 years ago)
Author:
gb
Message:

Apparently, CCL::%READ-FORM returns two values; CL functions implemented
in terms of CCL::%READ-FORM should return a single value.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-reader.lisp

    r8706 r8921  
    28882888   that followed the object."
    28892889  (setq stream (input-stream-arg stream))
    2890   (if recursive-p
    2891     (%read-form stream 0 nil)
    2892     (let ((%read-objects% nil) (%keep-whitespace% t))
    2893       (%read-form stream (if eof-error-p 0) eof-value))))
     2890  (values
     2891   (if recursive-p
     2892     (%read-form stream 0 nil)
     2893     (let ((%read-objects% nil) (%keep-whitespace% t))
     2894       (%read-form stream (if eof-error-p 0) eof-value)))))
    28942895
    28952896
     
    28992900  (setq char (require-type char 'character))
    29002901  (setq stream (input-stream-arg stream))
    2901   (let ((%keep-whitespace% nil))
    2902     (if recursive-p
    2903       (%read-form stream char nil)
    2904       (let ((%read-objects% nil))
    2905         (%read-form stream char nil)))))
     2902  (values
     2903   (let ((%keep-whitespace% nil))
     2904     (if recursive-p
     2905       (%read-form stream char nil)
     2906       (let ((%read-objects% nil))
     2907         (%read-form stream char nil))))))
    29062908
    29072909(defun read-conditional (stream subchar int)
Note: See TracChangeset for help on using the changeset viewer.