我是Lisp的新手(我正在尝试sbcl和ccl),遇到了car
和cdr
的使用,它们可以在单个函数调用中随意链接,例如{{ 1}}。
我一直在徘徊如何编写具有这种行为的函数...
例如,如果我像(caddr)
my-eval
评估输入的s-exp 3次。
我已经用一个宏修改了自己的方式
(my-ev $$$$'(...)),其中行为由第一个参数中的'$'数决定,方法是将其转换为char序列(my-evaaal '(+ 2 1))
并求值并递归直到列表是零...
基本需求:
(coerce (symbol-name x) 'list)
所需语法
;; if
(defvar *foo* 1)
(eval '*foo*) ;; => 1
(eval ''*foo*) ;; => *foo*
(eval '''*foo*) ;; => '*foo*
;; then
(eval (eval (eval '''*foo*))) ;; => 1
答案 0 :(得分:3)
CAAR,CADR之类的功能只是常规功能;您可以定义一个宏来帮助您轻松定义它们。
(defpackage :so (:use :cl :ppcre))
(in-package :so)
(defmacro eval%% (count form)
(case count
(0 form)
(1 `(eval ,form))
(t (check-type count (integer 2))
`(eval%% ,(1- count) (eval ,form)))))
例如,以下内容:
(eval%% 3 '''most-positive-fixnum)
依次扩展为:
(EVAL%% 2 (EVAL '''MOST-POSITIVE-FIXNUM))
(EVAL%% 1 (EVAL (EVAL '''MOST-POSITIVE-FIXNUM)))
(EVAL (EVAL (EVAL '''MOST-POSITIVE-FIXNUM)))
然后,您可以如下定义自定义eval函数,甚至可以定义另一个宏:
(defun evaal (x) (eval%% 2 x))
(defun evaaal (x) (eval%% 3 x))
或者,请注意,您可以捕获对未定义函数的调用:
(block nil
(handler-bind ((undefined-function
(lambda (e)
(return
(values (cell-error-name e)
(compute-restarts e))))))
(evaaaaaal 'a)))
=> EVAAAAAAL
(#<RESTART CONTINUE {7FD5F5F8CE43}> #<RESTART USE-VALUE {7FD5F5F8CE03}>
#<RESTART SB-KERNEL::RETURN-VALUE {7FD5F5F8CDC3}>
#<RESTART SB-KERNEL::RETURN-NOTHING {7FD5F5F8CD83}>
#<RESTART SWANK::RETRY {7FD5F5F8DA13}> #<RESTART ABORT {7FD5F5F8DEC3}>
#<RESTART ABORT {7FD5F5F8EB03}>)
您还可以使用标准的USE-VALUE重新启动来提供其他函数来调用:
(defun multi-eval-handler (condition)
(let ((name (cell-error-name condition)))
(when (eq (symbol-package name) (find-package :so))
(register-groups-bind ((#'length count)) ("EV\(A+\)L" (string name))
(invoke-restart 'use-value (make-repeated-evaluator count))))))
您需要一个辅助函数来计算N次评估:
(defun make-repeated-evaluator (count)
(case count
(0 #'identity)
(1 #'eval)
(t (check-type count (integer 2))
(lambda (form)
(loop
for value = form then (eval value)
repeat count
finally (return value))))))
例如:
(funcall (make-repeated-evaluator 3)
'''most-positive-fixnum)
=> 4611686018427387903
然后,您可以具有任意长的eval函数:
(handler-bind ((undefined-function #'multi-eval-handler))
(evaaaaaaaaaaaaaal '''''''''''''0))
现在,如果您编译代码,则会在编译时收到有关未知函数的警告,然后您可以忽略警告。