To create a function in common lisp you can use the defun operator: (defun signal-error (msg) (error msg)) Now you can call it like so: (signal-error “This message will be signalled as the error message”) Then you can insert it in your code like this: (print “Enter number”) (setq number (read)) ;; <- note that … Read more
The most basic lisp operations are list eaters: (defun some-function (list-to-consume perhaps-additional-args) (cond ((endp list-to-consume) <end-of-list-expression>) ((<predicate> list-to-consume perhaps-additional-args) <result-expression>) (t (some-function (cdr list-to-consume) perhaps-additional-args)))) Examples: ;; The predicate is the endp expression (defun mylength (list &optional (len 0)) (cond ((endp list) len) (t (mylength (cdr list) (1+ len))))) ;; A member function (defun mymember … Read more
A Common Lisp version is almost the same as in Scheme: (defun solution (list) (apply #’mapcar #’+ list)) (solution ‘((1 2 3) (9 10 11) (3 4 5))) ; ==> (13 16 19) 1 solved LISP Easy questio about creating new lists