projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.15.7
[sbcl.git]
/
src
/
code
/
cross-misc.lisp
diff --git
a/src/code/cross-misc.lisp
b/src/code/cross-misc.lisp
index
2b2a6c5
..
86d8082
100644
(file)
--- a/
src/code/cross-misc.lisp
+++ b/
src/code/cross-misc.lisp
@@
-162,10
+162,9
@@
(declare (ignore kind thing format))
`(progn ,@body))
(declare (ignore kind thing format))
`(progn ,@body))
-(defmacro with-deferred-package-lock-violations (&body body)
- `(flet ((prepend-package-lock-violations (forms) forms)
- (package-lock-violations () nil))
- ,@body))
+(defun compiler-assert-symbol-home-package-unlocked (symbol control)
+ (declare (ignore control))
+ symbol)
(defun assert-package-unlocked (package &optional control &rest args)
(declare (ignore control args))
(defun assert-package-unlocked (package &optional control &rest args)
(declare (ignore control args))
@@
-175,10
+174,4
@@
(declare (ignore format continuablep))
name)
(declare (ignore format continuablep))
name)
-(deftype package-lock-violation () nil)
-
-(deftype package-locked-error () nil)
-
-(deftype symbol-package-locked-error () nil)
-
(declaim (declaration enable-package-locks disable-package-locks))
(declaim (declaration enable-package-locks disable-package-locks))