> 1 <

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

Яков Замир Кацман (нью)

Members


Статус

51 сообщений

Где: 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


Статус

51 сообщений

Где: 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)
)
> 1 <


Онлайн :

0 пользователь(ей), 11 гость(ей) :




Реклама на сайте: