/[gcl]/gcl/info/chap-6.texi
ViewVC logotype

Diff of /gcl/info/chap-6.texi

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

revision 1.1 by vvzhy, Fri Oct 18 10:31:14 2002 UTC revision 1.1.6.1 by camm, Mon Nov 24 16:32:41 2003 UTC
# Line 2715  For details, see @ref{The LOOP Facility} Line 2715  For details, see @ref{The LOOP Facility}
2715     (loop (format t "~&Number: ")     (loop (format t "~&Number: ")
2716           (let ((n (parse-integer (read-line) :junk-allowed t)))           (let ((n (parse-integer (read-line) :junk-allowed t)))
2717             (when (not n) (return))             (when (not n) (return))
2718             (format t "~&The square root of ~D is ~D.~             (format t "~&The square root of ~D is ~D.~%" n (sqrt n)))))
2719  @result{}  SQRT-ADVISOR  @result{}  SQRT-ADVISOR
2720   (sqrt-advisor)   (sqrt-advisor)
2721  @t{ |> } Number: @b{|>>}@t{5 @t{@i{[<--}~]}}@b{<<|}  @t{ |> } Number: @b{|>>}@t{5 @t{@i{[<--}~]}}@b{<<|}

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

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26