2011-12-03 8 views
4

lisp 세션에서 작성한 모든 변수의 목록을 가져오고 싶습니다. 필자는 common-lisp-user에있는 모든 심볼을 보아서 이것이 가능해야한다고 생각합니다. 그런 목록을 어떻게 얻을 수 있습니까?사용자 생성 변수 목록 가져 오기

답변

3

cl-user에서 변수를 바인딩하려면 참조 :

(let ((external-symbols (mapcan (lambda (pkg) 
            (let (rez) 
            (do-symbols (s pkg rez) 
             (push s rez)))) 
           (package-use-list (find-package 'cl-user))))) 
    (do-symbols (s 'cl-user) 
    (when (and (boundp s) 
       (not (member s external-symbols))) 
     (print s)))) 
+0

이 감사, 잘했다. – snowape