Skip to content

Instantly share code, notes, and snippets.

View Flare183's full-sized avatar

Jesse Richardson Flare183

17 followers · 27 following
View GitHub Profile
@Flare183
Flare183 / *slime-repl sbcl*
Created July 1, 2010 23:28 — forked from zc00gii/*slime-repl sbcl*
(defun area ()
(let (x y)
(format t "Enter the x variable~%")
(setf x (read))
(format t "Enter the y variable~%")
(setf y (read))
(values (* y x))))
@Flare183
Flare183 / *slime-repl sbcl*
Created July 1, 2010 23:41 — forked from zc00gii/*slime-repl sbcl*
(defun area ()
(let (x y)
(format t "Enter the x variable~%")
(setf x (read))
(format t "Enter the y variable~%")
(setf y (read))
(format t "The answer is~%")
(values (* y x))))