Plaster
New
List
Login
common-lisp
default
phoe
2020.05.24 16:02:49
(defparameter +day-names+ '("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday")) (defparameter +month-names+ '("January" "February" "March" "April" "May" "June" "July" "august" "September" "October" "november" "December")) ;;; Make the text of a time announcement. (defun daystring () (multiple-value-bind (second minute hour day month year day-of-week) (get-decoded-time) (declare (ignore second year)) (let () (format NIL "It is now ~2,'0d:~2,'0d on ~a, ~a ~:R." hour minute (nth day-of-week +day-names+) (nth month +month-names+) day))))
Raw
Annotate
Repaste