Introduction
Statistics
Contact
Development
Disclaimer
Help
sdf.org home page
;;; greet.lsp
(defun greet ()
(princ (format nil "~2&I am Maclisp.~2&What is your name? "))
(setq name (readline))
(princ (format nil "~2&Hello, ~A. It is nice to meet you.~2&Shall we play a game?" name)))