Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
tutorials
Commits
965bbba0
Commit
965bbba0
authored
Jul 22, 2020
by
Dave Cooper
Browse files
get in-package statements to top level.
parent
53225681
Changes
2
Hide whitespace changes
Inline
Side-by-side
.gitignore
View file @
965bbba0
*.wx64fsl
*.*x64fsl
*.fasl
*~
#*#
\ No newline at end of file
bench/source/patches.gdl
View file @
965bbba0
...
...
@@ -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 ()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment