用法
评论
建议
取 消
确 定
(defun cl:handle-keywords (expr) "处理lisp表达式或form中的 关键字符号,因autolisp的eval不支持。在eval前进行处理。" "expr" "(cl:handle-keywords '(:a 1 :b 2 :c 3 :d \"abc\"))" (cond ((listp expr) (mapcar (quote handle-keywords) expr)) ((= (type expr) (quote sym)) (if (and (= (ascii ":") (ascii (vl-symbol-name expr))) (null expr)) (progn (setq sym-str (vl-symbol-name expr)) (set (read sym-str) (read sym-str))) (read (vl-symbol-name expr)))) (t expr)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新