eliza.lsp

基因演算法source code範例vc

(SETF (READTABLE-CASE *READTABLE*) :PRESERVE)
(DEFVAR	*CHINESE-READTABLE* (COPY-READTABLE))
(DEFUN CHINESE-READ (&OPTIONAL (STREAM *STANDARD-INPUT*))
    (LET ((*READTABLE* *CHINESE-READTABLE*))
	 (READ STREAM NIL 'EOF)
)   )
(SET-SYNTAX-FROM-CHAR #\| #\A *CHINESE-READTABLE*)
(SETF (READTABLE-CASE *CHINESE-READTABLE*) :PRESERVE)
;;
(DEFMACRO ﹚竡ㄧ计 (NAME ARG &REST BODY)
  `(DEFUN ,NAME	,ARG ,@BODY))
(DEFMACRO エ栋 (NAME ARG &REST BODY)
  `(DEFMACRO ,NAME ,ARG	,@BODY))
;;
(エ栋