Автор |
Сообщение |
Members


57 сообщений
Где: Russia
Род занятий:
Возраст:
|
#7829
2018-01-28 16:32 GMT+3 часа(ов)
|
(defpackage :tom
(:use :common-lisp)
(:export #:main))
(in-package :tom)
(defun main ()
(format t "test tom")
)
(defpackage :dick
(:use :common-lisp)
(:export #:main))
(in-package :dick)
(defun main ()
(format t "test dick")
)
;; вызываем
(in-package :dick)
(main)
;; вызываем
(in-package :tom)
(main)
отредактировал(а) Яков Замир Кацман (нью): 2018-01-28 16:43 GMT+3 часа(ов)
|
Соотношение высоты байта к ширине не имеет значения
|
Members


57 сообщений
Где: Russia
Род занятий:
Возраст:
|
#7834
2018-01-31 11:59 GMT+3 часа(ов)
|
Модифицированный вариант
(defpackage :tom
(:use :common-lisp)
(:export #:main)
)
(in-package :tom)
(defvar a)
(defun main ()
(format t "~% test tom ~a ~%" a)
)
(defpackage :dick
(:use :common-lisp)
(:export #:main)
)
(in-package :dick)
(defvar a)
(defun main ()
(format t "~% test dick ~a ~%" a)
)
(let ((dick::a) (tom::a) )
(setq dick::a "999" )
(setq tom::a "888" )
(dick::main)
(tom::main)
)
|
Соотношение высоты байта к ширине не имеет значения
|