Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
712c19fc
Commit
712c19fc
authored
Jan 21, 2009
by
rtoy
Browse files
Fix typo with misplaced paren.
parent
296f59c2
Changes
1
Hide whitespace changes
Inline
Side-by-side
pcl/simple-streams/strategy.lisp
View file @
712c19fc
...
...
@@ -5,7 +5,7 @@
;;; domain.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.1
1
200
8
/0
6/19 01:41:34
rtoy Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.1
2
200
9
/0
1/21 18:16:50
rtoy Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -325,8 +325,8 @@
(
flet
((
refill
()
(
return-from
read-char
(
lisp::eof-or-lose
stream
eof-error-p
eof-value
))))
(
let*
((
char
(
funcall
(
%read-char-fn
(
sm
external-format
stream
)
stream
#'
refill
))
)
(
let*
((
char
(
funcall
(
%read-char-fn
(
sm
external-format
stream
)
)
stream
#'
refill
))
(
code
(
char-code
char
))
(
ctrl
(
sm
control-in
stream
)))
(
when
(
and
(
<
code
32
)
ctrl
(
svref
ctrl
code
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment