SBCL 从REPL 中提取lisp代码

1, 在emacs C-x C-W 文件另存为保存所有REPL过程

由于 (load "foo.lisp"）时只有定义语句可以正确执行， 执行语句不可正确被 (load "foo.lisp")解析执行

所以脚本写成了这个样子, 脚本名 parse_lisp_code.sh

#!/bin/bash
if [ -n "$1" ]; then
   sed 's/CL-USER>//' $1 | expand -t 8 | egrep '^ *\(def|^ {8,}' >> "code_${1}"
else
   echo "please input lisp file name"
fi

运行脚本 sh parse_lisp_code.sh cd.lisp

命令解释:

使用sed 删除提示符 CL-USER

lisp定义语句以(def 开头 或是 制表符开头, 如下

CL-USER> (defun dump-db ()$
^I   (dolist (cd *db*)$
^I     (format t "~{~a: ~10t~a~%~}~%" cd)))$

 所以使用grep 过滤出每行开始n个空格后加(def或制表符的行,

但是发现grep 不能匹配制表符,

所以使用 expand -t 8 foo > bar 把制表符转化成8个空格

 

 

P.S. 定义出错的函数也会被提取出来