Skip to content
Snippets Groups Projects
Commit 23cec3b6 authored by gerd's avatar gerd
Browse files

(compile nil '(lambda (s)

                        (declare (optimize (space 0) (speed 3)))
                        (the integer (read-byte s))))

	results in

	; Warning: This is not a (VALUES INTEGER &REST T):
	;   NIL

	From Alexey Dejneka on cmucl-imp.

	* src/code/sysmacs.lisp (stream-dispatch): Use etypecase.
parent b662ca74
No related branches found
No related tags found
Loading
Loading
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