Tim Bradshaw <tfb@cley.com> wrote:
+---------------
| * Rob Warnock wrote:
|
| > (defun get-reference-pair-from-keyboard ()
| > (format t "~&Please type the address of the web page:~%")
| > (let ((web-address (read-line)))
| > (format t "~&Please type the label you want displayed for this link:~%")
| > (let ((web-label (read-line)))
| > (cons web-address web-label))))
|
| Ick! If you really want to use let do this:
|
| (let ((address (progn (format ...) (read-line)))
| (label (progn (format ...) (read-line))))
| (cons address label))
|
| Your version seems gratuitously over-complex to me.
+---------------
Oh yeah?!? Then why didn't you write your version *WITHOUT* those
oh-so-convenient-but-non-working ellipses, hmmm??? Doesn't look so
good now, does it?
(let ((address (progn (format t "~&Please type the address of the web page:~%") (read-line)))
(label (progn (format t "~&Please type the label you want displayed for this link:~%") (read-line))))
(cons address label))
-Rob
-----
Rob Warnock, 41L-955 rpw3@sgi.com
Applied Networking http://reality.sgi.com/rpw3/
Silicon Graphics, Inc. Phone: 650-933-1673
1600 Amphitheatre Pkwy. PP-ASEL-IA
Mountain View, CA 94043