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)) )
|
||
|
)
|
||
|
)
|