39 |
(dolist (d (list lsp cmpnew pcl)) |
(dolist (d (list lsp cmpnew pcl)) |
40 |
(load (make-pathname :name "sys-proclaim" :type "lisp" :directory d))) |
(load (make-pathname :name "sys-proclaim" :type "lisp" :directory d))) |
41 |
(load (make-pathname :name "tk-package" :type "lsp" :directory gtk)) |
(load (make-pathname :name "tk-package" :type "lsp" :directory gtk)) |
42 |
(load (make-pathname :name "gcl_cmpmain" :type "lsp" :directory cmpnew)) |
; (load (make-pathname :name "gcl_cmpmain" :type "lsp" :directory cmpnew)) |
43 |
(load (make-pathname :name "gcl_lfun_list" :type "lsp" :directory cmpnew)) |
(load (make-pathname :name "gcl_lfun_list" :type "lsp" :directory cmpnew)) |
44 |
(load (make-pathname :name "gcl_cmpopt" :type "lsp" :directory cmpnew)) |
(load (make-pathname :name "gcl_cmpopt" :type "lsp" :directory cmpnew)) |
45 |
(load (make-pathname :name "gcl_auto_new" :type "lsp" :directory lsp)) |
(load (make-pathname :name "gcl_auto_new" :type "lsp" :directory lsp)) |