onjo #1485(2007/07/26 20:28 GMT) [ Common Lisp ] Rating0/0=0.00
1 2 3 4
(defun call-test (pakcage) (do-symbols (symbol pakcage) (when (and (fboundp symbol) (ppcre:scan "^test_" (symbol-name symbol))) (format t "~A => ~A~%" symbol (funcall (symbol-function symbol))))))
Rating0/0=0.00-0+
1 reply [ reply ]
onjo #1485() [ Common Lisp ] Rating0/0=0.00
(defun call-test (pakcage) (do-symbols (symbol pakcage) (when (and (fboundp symbol) (ppcre:scan "^test_" (symbol-name symbol))) (format t "~A => ~A~%" symbol (funcall (symbol-function symbol))))))Rating0/0=0.00-0+