LINUX.ORG.RU

История изменений

Исправление monk, (текущая версия) :

Лучше бы в issue написал. Там хоть в ответ писать можно.

А по существу.

1. сделал

(defpackage cl-user.test)
(in-package .test)
'..::car => CAR

2.

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr)
'..test.thr:make-thread => BORDEAUX-THREADS:MAKE-THREAD

или

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr :cl-user)
'..thr:make-thread => BORDEAUX-THREADS:MAKE-THREAD

package:: не меняет переменную package, а лишь заменяет домашний пакет символов. То есть

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr)
и
(advanced-readtable:push-local-nickname :bordeaux-threads 'cl-user::thr)
одно и то же.

3. Сделал

CL-USER> (defpackage cl-user.test)
CL-USER> (in-package .test)
TEST> (in-package |..|)
CL-USER>

Исправление monk, :

Лучше бы в issue написал. Там хоть в ответ писать можно.

А по существу.

1. сделал

2.

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr)
'..test.thr:make-thread => BORDEAUX-THREADS:MAKE-THREAD

или

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr :cl-user)
'..thr:make-thread => BORDEAUX-THREADS:MAKE-THREAD

package:: не меняет переменную package, а лишь заменяет домашний пакет символов. То есть

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr)
и
(advanced-readtable:push-local-nickname :bordeaux-threads 'cl-user::thr)
одно и то же.

3. Сделал

CL-USER> (defpackage cl-user.test)
CL-USER> (in-package .test)
TEST> (in-package |..|)
CL-USER>

Исходная версия monk, :

Лучше бы в issue написал. Там хоть в ответ писать можно.

А по существу.

1. сделал 2.

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr)
'..test.thr:make-thread => BORDEAUX-THREADS:MAKE-THREAD

или

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr :cl-user)
'..thr:make-thread => BORDEAUX-THREADS:MAKE-THREAD

package:: не меняет переменную package, а лишь заменяет домашний пакет символов. То есть

cl-user::(advanced-readtable:push-local-nickname :bordeaux-threads 'thr)
и
(advanced-readtable:push-local-nickname :bordeaux-threads 'cl-user::thr)
одно и то же.

3. Сделал

CL-USER> (defpackage cl-user.test)
CL-USER> (in-package .test)
TEST> (in-package |..|)
CL-USER>