gengyangcai
7/18/2015 4:05:00 PM
CL-USER 1 > (defun all-nicknames (names) (if (null names)
nil
(nconc (nicknames (car names))
(all-nicknames (cdr names)))))
ALL-NICKNAMES
Error while reading: Subcharacter #\' not defined for dispatch char #\#.
CL-USER 2 >
(mapcan #'nicknames people)
Error: Subcharacter #\' not defined for dispatch char #\#.
1 (abort) Return to level 0.
2 Return to top loop level 0.
Type :b for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.
Error while reading: Subcharacter #\' not defined for dispatch char #\#.
CL-USER 2 : 1 >
(let ((town (find-if #'bookshops towns))) (values town (bookshops town)))
Error: Subcharacter #\' not defined for dispatch char #\#.
1 (abort) Return to level 1.
2 Return to debug level 1.
3 Return to level 0.
4 Return to top loop level 0.
Type :b for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.
CL-USER 2 : 2 >
(defun find-books (towns) (if (null towns)
nil
(let ((shops (bookshops (car towns))))
(if shops
(values (car towns) shops) (find-books (cdr towns))))))
FIND-BOOKS
CL-USER 3 : 2 >
(defun find2 (fn lst) (if (null lst)
nil
(let ((val (funcall fn (car lst))))
(if val
(values (car lst) val) (find2 fn (cdr lst))))))
FIND2
Error while reading: Subcharacter #\' not defined for dispatch char #\#.
CL-USER 4 : 2 >
(find2 #'bookshops towns)
Error: Subcharacter #\' not defined for dispatch char #\#.
1 (abort) Return to level 2.
2 Return to debug level 2.
3 Return to level 1.
4 Return to debug level 1.
5 Return to level 0.
6 Return to top loop level 0.
Type :b for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.
CL-USER 4 : 3 >