abcl: remove commented out code block

Addresses <https://github.com/sharplispers/clx/pull/171/files/87ba560e67cf8cd8539d04909d98563beeb02e84#r445528796>.
sharplispers · Jun 25, 2020 · bfed9f0 · bfed9f0
1 parent 1f8b49f
commit bfed9f0
Showing 1 changed file with 0 additions and 7 deletions.
diff --git a/dependent.lisp b/dependent.lisp
@@ -634,13 +634,6 @@
   `(threads:with-thread-lock (,lock)
      ,@body))
 
-#+(or) ;; How to implement a timeout?
-(defmacro holding-lock ((lock display &optional (whostate "CLX wait")
-                              &key timeout)
-                        &body body)
-  (declare (ignore display whostate))
-  (threads:with-thread-lock (lock)))
-
 ;;; WITHOUT-ABORTS
 
 ;;; If you can inhibit asynchronous keyboard aborts inside the body of this