11 lines
267 B
Plaintext
11 lines
267 B
Plaintext
;;; This function, given a specific degree in Farhrenheit,
|
|
;;; presents the user with equivalent Celsius degree.
|
|
|
|
(defun convert ()
|
|
(format t "Enter Fahrenheit ")
|
|
(LET (fahr)
|
|
(SETQ fahr (read fahr))
|
|
(APPEND '(celsisus is) (*(- fahr 32)(/ 5 9)) )
|
|
)
|
|
)
|