Commit 965bbba0 authored by Dave Cooper's avatar Dave Cooper
Browse files

get in-package statements to top level.

parent 53225681
*.wx64fsl
*.*x64fsl
*.fasl
*~
#*#
\ No newline at end of file
......@@ -24,11 +24,12 @@
;; Below can be cleared with 1596
;;
(in-package :geom-base)
(#+allegro
excl:without-package-locks
#-allegro progn
(in-package :geom-base)
(defun flush-center (ref-center datum p-plane u-plane &optional (u-datum u-plane))
(translate-along-vector ref-center u-datum
......@@ -44,13 +45,13 @@
;; All below can be cleared as of 1596
;;
(in-package :gdl)
(#+allegro
excl:without-package-locks
#-allegro progn
(in-package :gdl)
(defun %unbind-dependent-slots% (object slot &key updating?)
(let ((current (gethash (list object slot) *unbound-slots*)))
......@@ -86,13 +87,12 @@
(in-package :gwl)
(#+allegro
excl:without-package-locks
#-allegro progn
(in-package :gwl)
(define-object-amendment base-ajax-graphics-sheet ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment