Skip to content

Instantly share code, notes, and snippets.

@Flare183
Forked from zc00gii/*slime-repl sbcl*
Created July 1, 2010 23:41
Show Gist options
  • Save Flare183/460727 to your computer and use it in GitHub Desktop.
Save Flare183/460727 to your computer and use it in GitHub Desktop.
(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))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment