branch: elpa/sly
commit 569d21fa48d148660ffdef24831bb09195148a0e
Author: André A. Gomes <[email protected]>
Commit: André A. Gomes <[email protected]>
Remove redundant #' before lambda.
---
contrib/sly-fontifying-fu.el | 2 +-
contrib/sly-mrepl.el | 24 +++++++--------
contrib/sly-package-fu.el | 2 +-
contrib/sly-stickers.el | 10 +++----
contrib/sly-trace-dialog.el | 40 ++++++++++++-------------
contrib/slynk-arglists.lisp | 10 +++----
contrib/slynk-fancy-inspector.lisp | 4 +--
contrib/slynk-trace-dialog.lisp | 8 ++---
lib/sly-buttons.el | 10 +++----
lib/sly-common.el | 2 +-
lib/sly-messages.el | 4 +--
lib/sly-tests.el | 6 ++--
sly.el | 60 +++++++++++++++++++-------------------
slynk/backend/abcl.lisp | 2 +-
slynk/backend/clasp.lisp | 8 ++---
slynk/backend/clisp.lisp | 2 +-
slynk/backend/ecl.lisp | 10 +++----
slynk/backend/lispworks.lisp | 4 +--
slynk/backend/mkcl.lisp | 8 ++---
slynk/backend/sbcl.lisp | 2 +-
slynk/backend/scl.lisp | 6 ++--
slynk/metering.lisp | 12 ++++----
slynk/slynk-backend.lisp | 2 +-
slynk/slynk-completion.lisp | 6 ++--
slynk/slynk-loader.lisp | 2 +-
slynk/slynk.lisp | 8 ++---
slynk/xref.lisp | 24 +++++++--------
test/sly-autodoc-tests.el | 6 ++--
test/sly-parse-tests.el | 2 +-
test/sly-stickers-tests.el | 2 +-
30 files changed, 144 insertions(+), 144 deletions(-)
diff --git a/contrib/sly-fontifying-fu.el b/contrib/sly-fontifying-fu.el
index bc100a4a4b5..c30bb6be16f 100644
--- a/contrib/sly-fontifying-fu.el
+++ b/contrib/sly-fontifying-fu.el
@@ -189,7 +189,7 @@ position, or nil."
`((sly-search-suppressed-forms 0 ,''sly-reader-conditional-face t)))
(add-hook 'lisp-mode-hook
- #'(lambda ()
+ (lambda ()
(add-hook 'font-lock-extend-region-functions
'sly-extend-region-for-font-lock t t))))
diff --git a/contrib/sly-mrepl.el b/contrib/sly-mrepl.el
index e0185447088..2a5caaee758 100644
--- a/contrib/sly-mrepl.el
+++ b/contrib/sly-mrepl.el
@@ -55,7 +55,7 @@
;; The connection list is also tweaked
;;
(setq sly-connection-list-button-action
- #'(lambda (process)
+ (lambda (process)
(let ((sly-default-connection process))
(sly-mrepl 'pop-to-buffer)))))
(:on-unload
@@ -269,19 +269,19 @@ for output printed to the REPL (not for evaluation
results)")
;;;
(define-button-type 'sly-mrepl-part :supertype 'sly-part
'sly-button-inspect
- #'(lambda (entry-idx value-idx)
+ (lambda (entry-idx value-idx)
(sly-eval-for-inspector `(slynk-mrepl:inspect-entry
,sly-mrepl--remote-channel
,entry-idx
,value-idx)
:inspector-name (sly-maybe-read-inspector-name)))
'sly-button-describe
- #'(lambda (entry-idx value-idx)
+ (lambda (entry-idx value-idx)
(sly-eval-describe `(slynk-mrepl:describe-entry
,sly-mrepl--remote-channel
,entry-idx
,value-idx)))
'sly-button-pretty-print
- #'(lambda (entry-idx value-idx)
+ (lambda (entry-idx value-idx)
(sly-eval-describe `(slynk-mrepl:pprint-entry ,sly-mrepl--remote-channel
,entry-idx
,value-idx)))
@@ -359,7 +359,7 @@ In that case, moving a sexp backward does nothing."
(defmacro sly-mrepl--with-repl (repl-buffer &rest body)
(declare (indent 1) (debug (sexp &rest form)))
- `(sly-mrepl--call-with-repl ,repl-buffer #'(lambda () ,@body)))
+ `(sly-mrepl--call-with-repl ,repl-buffer (lambda () ,@body)))
(defun sly-mrepl--insert (string &optional face)
(sly-mrepl--commiting-text (when face
@@ -789,7 +789,7 @@ REPL is the REPL buffer to return the objects to."
(sly-eval-async
`(slynk-mrepl:globally-save-object ',(car slyfun-and-args)
,@(cdr slyfun-and-args))
- #'(lambda (_ignored)
+ (lambda (_ignored)
(sly-mrepl--copy-globally-saved-to-repl :before before
:after after
:repl repl))))
@@ -876,8 +876,8 @@ history entry navigated to."
(unless (eq isearch-search-fun-function
'isearch-search-fun-default)
(set (make-local-variable 'isearch-search-fun-function)
- #'(lambda ()
- #'(lambda (&rest args)
+ (lambda ()
+ (lambda (&rest args)
(cl-letf
(((symbol-function
'comint-line-beginning-position)
@@ -1125,7 +1125,7 @@ prefix argument is given."
(sly-to-lisp-filename directory)))
:insert-p nil
:before-prompt
- #'(lambda (results)
+ (lambda (results)
(cl-destructuring-bind (package-2 directory-2) results
(sly-mrepl--insert-note
(cond ((and package directory)
@@ -1139,7 +1139,7 @@ prefix argument is given."
(format "Remaining in package %s and directory %s"
package-2 directory-2))))))
:after-prompt
- #'(lambda (_results)
+ (lambda (_results)
(when expression
(goto-char (point-max))
(let ((saved (point)))
@@ -1243,14 +1243,14 @@ Doesn't clear input history."
(sly-mrepl--save-and-copy-for-repl
`(slynk-backend:frame-arguments ,frame-id)
:before (format "The actual arguments passed to frame %s" frame-id)
- :after #'(lambda (objects)
+ :after (lambda (objects)
(sly-mrepl--insert-call spec objects))))
(defun sly-trace-dialog-copy-call-to-repl (trace-id spec)
(sly-mrepl--save-and-copy-for-repl
`(slynk-trace-dialog:trace-arguments-or-lose ,trace-id)
:before (format "The actual arguments passed to trace %s" trace-id)
- :after #'(lambda (objects)
+ :after (lambda (objects)
(sly-mrepl--insert-call spec objects))))
(defun sly-mrepl-inside-string-or-comment-p ()
diff --git a/contrib/sly-package-fu.el b/contrib/sly-package-fu.el
index 017eb12a1f7..4ebddb28e10 100644
--- a/contrib/sly-package-fu.el
+++ b/contrib/sly-package-fu.el
@@ -23,7 +23,7 @@
"defpackage.lisp")))
(defvar sly-export-symbol-representation-function
- #'(lambda (n) (format "#:%s" n)))
+ (lambda (n) (format "#:%s" n)))
(defvar sly-import-symbol-package-transform-function
'identity
diff --git a/contrib/sly-stickers.el b/contrib/sly-stickers.el
index f511d8d6d8d..6ff5ba70a8f 100644
--- a/contrib/sly-stickers.el
+++ b/contrib/sly-stickers.el
@@ -276,7 +276,7 @@ render the underlying text unreadable."
(contained (sly-stickers--stickers-between from to))
(not-contained (cl-set-difference intersecting contained))
(containers nil))
- (unless (cl-every #'(lambda (e)
+ (unless (cl-every (lambda (e)
(and (< (button-start e) from)
(> (button-end e) to)))
not-contained)
@@ -339,11 +339,11 @@ render the underlying text unreadable."
'sly-button-inspect
'sly-stickers--inspect-recording
;; 'sly-button-pretty-print
- ;; #'(lambda (id) ...)
+ ;; (lambda (id) ...)
;; 'sly-button-describe
- ;; #'(lambda (id) ...)
+ ;; (lambda (id) ...)
;; 'sly-button-show-source
- ;; #'(lambda (id) ...)
+ ;; (lambda (id) ...)
)
(defun sly-stickers--recording-part (label sticker-id recording vindex
@@ -1091,7 +1091,7 @@ Non-interactively, set the `:recording' slot of
See also `sly-stickers-replay'."
(interactive)
(sly-eval-async `(slynk-stickers:fetch ',(sly-stickers--zombies))
- #'(lambda (result)
+ (lambda (result)
(sly-stickers--reset-zombies)
(let ((message
(format "Fetched recordings for %s armed stickers"
diff --git a/contrib/sly-trace-dialog.el b/contrib/sly-trace-dialog.el
index c770584334e..652a95a9425 100644
--- a/contrib/sly-trace-dialog.el
+++ b/contrib/sly-trace-dialog.el
@@ -251,7 +251,7 @@ inspecting details of traced functions. Invoke this dialog
with C-c T."
(cl-defmacro sly-trace-dialog--maintaining-properties (pos
&body body)
(declare (indent 1))
- `(sly-trace-dialog--call-maintaining-properties ,pos #'(lambda () ,@body)))
+ `(sly-trace-dialog--call-maintaining-properties ,pos (lambda () ,@body)))
(defun sly-trace-dialog--go-replace-char-at (pos char)
(sly-trace-dialog--maintaining-properties pos
@@ -269,7 +269,7 @@ inspecting details of traced functions. Invoke this dialog
with C-c T."
`(cl:progn
,form
(slynk-trace-dialog:report-specs))
- #'(lambda (results)
+ (lambda (results)
(sly-trace-dialog--open-specs results)))))))
(sly-refreshing
(:overlay sly-trace-dialog--specs-overlay
@@ -309,31 +309,31 @@ inspecting details of traced functions. Invoke this
dialog with C-c T."
done
(or total "0"))
(sly-make-action-button "[refresh]"
- #'(lambda (_button)
+ (lambda (_button)
(sly-trace-dialog-fetch-progress))))
(when (and total (cl-plusp (- total done)))
(insert "\n" (make-string 50 ? )
(sly-make-action-button
"[fetch next batch]"
- #'(lambda (_button)
+ (lambda (_button)
(sly-trace-dialog-fetch-traces nil)))
"\n" (make-string 50 ? )
(sly-make-action-button
"[fetch all]"
- #'(lambda (_button)
+ (lambda (_button)
(sly-trace-dialog-fetch-traces t)))))
(when total
(insert "\n" (make-string 50 ? )
(sly-make-action-button
"[clear]"
- #'(lambda (_button)
+ (lambda (_button)
(sly-trace-dialog-clear-fetched-traces)))))
(when show-stop-p
(insert "\n" (make-string 50 ? )
(sly-make-action-button
"[stop]"
- #'(lambda (_button)
+ (lambda (_button)
(setq sly-trace-dialog--stop-fetching t)))))
(insert "\n\n"))))
@@ -343,16 +343,16 @@ inspecting details of traced functions. Invoke this
dialog with C-c T."
(define-button-type 'sly-trace-dialog-part :supertype 'sly-part
'sly-button-inspect
- #'(lambda (trace-id part-id type)
+ (lambda (trace-id part-id type)
(sly-eval-for-inspector
`(slynk-trace-dialog:inspect-trace-part ,trace-id ,part-id ,type)
:inspector-name (sly-maybe-read-inspector-name)))
'sly-button-pretty-print
- #'(lambda (trace-id part-id type)
+ (lambda (trace-id part-id type)
(sly-eval-describe
`(slynk-trace-dialog:pprint-trace-part ,trace-id ,part-id ,type)))
'sly-button-describe
- #'(lambda (trace-id part-id type)
+ (lambda (trace-id part-id type)
(sly-eval-describe
`(slynk-trace-dialog:describe-trace-part ,trace-id ,part-id ,type))))
@@ -368,17 +368,17 @@ inspecting details of traced functions. Invoke this
dialog with C-c T."
(define-button-type 'sly-trace-dialog-spec :supertype 'sly-part
'action 'sly-button-show-source
'sly-button-inspect
- #'(lambda (trace-id _spec)
+ (lambda (trace-id _spec)
(sly-eval-for-inspector `(slynk-trace-dialog:inspect-trace ,trace-id)
:inspector-name "trace-entries"))
'sly-button-show-source
- #'(lambda (trace-id _spec)
+ (lambda (trace-id _spec)
(sly-eval-async
`(slynk-trace-dialog:trace-location ,trace-id)
- #'(lambda (location)
+ (lambda (location)
(sly--display-source-location location 'noerror))))
'point-entered
- #'(lambda (before after)
+ (lambda (before after)
(let ((button (sly-button-at after nil 'no-error)))
(when (and (not (sly-button-at before nil 'no-error))
button
@@ -428,7 +428,7 @@ inspecting details of traced functions. Invoke this dialog
with C-c T."
(sly-make-action-button (if (sly-trace-dialog--trace-collapsed-p trace)
(cdr sly-trace-dialog--collapse-chars)
(car sly-trace-dialog--collapse-chars))
- #'(lambda (button)
+ (lambda (button)
(sly-trace-dialog--set-collapsed
(not (sly-trace-dialog--trace-collapsed-p
trace))
@@ -628,7 +628,7 @@ inspecting details of traced functions. Invoke this dialog
with C-c T."
(cl-plusp remaining))
(sly-eval-async `(slynk-trace-dialog:report-partial-tree
',reply-key)
- #'(lambda (results) (sly-trace-dialog--on-new-results
+ (lambda (results) (sly-trace-dialog--on-new-results
results
recurse))))))))
@@ -645,7 +645,7 @@ inspecting details of traced functions. Invoke this dialog
with C-c T."
(interactive)
(sly-eval-async
'(slynk-trace-dialog:report-total)
- #'(lambda (total)
+ (lambda (total)
(sly-trace-dialog--update-progress
total))))
@@ -662,7 +662,7 @@ inspecting details of traced functions. Invoke this dialog
with C-c T."
(y-or-n-p "Clear all collected and fetched traces?"))
(sly-eval-async
'(slynk-trace-dialog:clear-trace-tree)
- #'(lambda (_ignored)
+ (lambda (_ignored)
(sly-trace-dialog--clear-local-tree)))))
(defun sly-trace-dialog-fetch-traces (&optional recurse)
@@ -670,7 +670,7 @@ inspecting details of traced functions. Invoke this dialog
with C-c T."
(setq sly-trace-dialog--stop-fetching nil)
(sly-eval-async `(slynk-trace-dialog:report-partial-tree
',sly-trace-dialog--fetch-key)
- #'(lambda (results) (sly-trace-dialog--on-new-results results
+ (lambda (results) (sly-trace-dialog--on-new-results results
recurse))))
(defvar sly-trace-dialog-after-toggle-hook nil
@@ -702,7 +702,7 @@ other complicated function specs."
"Untrace all specs traced for the Trace Dialog."
(interactive)
(sly-eval-async `(slynk-trace-dialog:dialog-untrace-all)
- #'(lambda (results)
+ (lambda (results)
(sly-message "%s dialog specs and %s regular specs untraced"
(cdr results) (car results) )))
(run-hooks 'sly-trace-dialog-after-toggle-hook))
diff --git a/contrib/slynk-arglists.lisp b/contrib/slynk-arglists.lisp
index bb78d688d2a..94672227b1b 100644
--- a/contrib/slynk-arglists.lisp
+++ b/contrib/slynk-arglists.lisp
@@ -13,7 +13,7 @@
(defun compose (&rest functions)
"Compose FUNCTIONS right-associatively, returning a function"
- #'(lambda (x)
+ (lambda (x)
(reduce #'funcall functions :initial-value x :from-end t)))
(defun length= (seq n)
@@ -708,7 +708,7 @@ reference packages."
do (setf (gethash p package-use-table) (shiftf bfn (1+ bfn)))
and do (setf queue (nconc queue (copy-list (package-use-list p))))
while queue)
- #'(lambda (p1 p2)
+ (lambda (p1 p2)
(let ((bfn1 (gethash p1 package-use-table))
(bfn2 (gethash p2 package-use-table)))
(cond ((and bfn1 bfn2) (<= bfn1 bfn2))
@@ -949,7 +949,7 @@ If the arglist is not available, return :NOT-AVAILABLE."))
(list 'function)
:optional-args
(append
- (mapcar #'(lambda (arg)
+ (mapcar (lambda (arg)
(make-optional-arg arg nil))
(arglist.required-args function-arglist))
(arglist.optional-args function-arglist))
@@ -1158,7 +1158,7 @@ wrapped in ===> X <===.
Second, a boolean value telling whether the returned string can be cached."
(handler-bind ((serious-condition
- #'(lambda (c)
+ (lambda (c)
(unless (debug-on-slynk-error)
(let ((*print-right-margin* print-right-margin))
(return-from autodoc
@@ -1352,7 +1352,7 @@ object."
(extract-local-op-arglists 'cl:labels args)))
(defun %collect-op/argl-alist (defs)
- (setq defs (remove-if-not #'(lambda (x)
+ (setq defs (remove-if-not (lambda (x)
;; Well-formed FLET/LABELS def?
(and (consp x) (second x)))
defs))
diff --git a/contrib/slynk-fancy-inspector.lisp
b/contrib/slynk-fancy-inspector.lisp
index c844c7e0a4b..3014452d90d 100644
--- a/contrib/slynk-fancy-inspector.lisp
+++ b/contrib/slynk-fancy-inspector.lisp
@@ -249,7 +249,7 @@ See `methods-by-applicability'.")
`(:action ,(if (svref buttons i)
"[X]"
"[ ]")
- ,#'(lambda ()
+ ,(lambda ()
(setf (svref buttons i) (not (svref buttons i))))
:refreshp t)))
@@ -433,7 +433,7 @@ See `methods-by-applicability'.")
(defun stable-sort-by-inheritance (slots class predicate)
(stable-sort slots predicate
- :key #'(lambda (s)
+ :key (lambda (s)
(class-name (slot-home-class-using-class s class)))))
(defun query-and-set-slot (class object slot)
diff --git a/contrib/slynk-trace-dialog.lisp b/contrib/slynk-trace-dialog.lisp
index 18c8f7ce17b..ac5cdff1b2d 100644
--- a/contrib/slynk-trace-dialog.lisp
+++ b/contrib/slynk-trace-dialog.lisp
@@ -86,7 +86,7 @@ program.")
args))
(slynk-backend:call-with-lock-held
*trace-lock*
- #'(lambda ()
+ (lambda ()
(setf (slot-value entry 'id) (fill-pointer *traces*))
(vector-push-extend entry *traces*)))))
@@ -101,7 +101,7 @@ program.")
(defun useful-backtrace ()
(slynk-backend:call-with-debugging-environment
- #'(lambda ()
+ (lambda ()
(loop for i from 0
for frame in (slynk-backend:compute-backtrace 0 20)
collect (list i (slynk::frame-to-string frame))))))
@@ -192,7 +192,7 @@ program.")
*unfinished-traces* nil)
(slynk-backend:call-with-lock-held
*trace-lock*
- #'(lambda () (setf (fill-pointer *traces*) 0)))
+ (lambda () (setf (fill-pointer *traces*) 0)))
nil)
(defslyfun trace-part-or-lose (id part-id type)
@@ -284,7 +284,7 @@ program.")
;;;; Hook onto emacs
;;;;
(setq slynk:*after-toggle-trace-hook*
- #'(lambda (spec traced-p)
+ (lambda (spec traced-p)
(when *dialog-trace-follows-trace*
(cond (traced-p
(dialog-trace spec)
diff --git a/lib/sly-buttons.el b/lib/sly-buttons.el
index 454a8ef4ecd..6c89894382f 100644
--- a/lib/sly-buttons.el
+++ b/lib/sly-buttons.el
@@ -164,7 +164,7 @@
;;;
(defun sly-button--overlays-in (beg end &optional filter)
"Return overlays overlapping positions BEG and END"
- (cl-remove-if-not #'(lambda (button)
+ (cl-remove-if-not (lambda (button)
(and
;; Workaround fragility in Emacs' buttons:
;; `button-type-subtype-p' errors when
@@ -179,14 +179,14 @@
(defun sly-button--overlays-between (beg end &optional filter)
"Return overlays contained entirely between BEG and END"
- (cl-remove-if-not #'(lambda (button)
+ (cl-remove-if-not (lambda (button)
(and (>= (button-start button) beg)
(<= (button-end button) end)))
(sly-button--overlays-in beg end filter)))
(defun sly-button--overlays-exactly-at (beg end &optional filter)
"Return overlays exactly between BEG and END"
- (cl-remove-if-not #'(lambda (button)
+ (cl-remove-if-not (lambda (button)
(and (= (button-start button) beg)
(= (button-end button) end)))
(sly-button--overlays-in beg end filter)))
@@ -226,7 +226,7 @@
(defun sly-button--searchable-buttons-starting-at (&optional point filter)
(let ((point (or point (point))))
- (cl-remove-if-not #'(lambda (button)
+ (cl-remove-if-not (lambda (button)
(= (button-start button) point))
(sly-button--searchable-buttons-at point filter))))
@@ -288,7 +288,7 @@ at exactly the same spot, they are both visited
simultaneously,
(apply (button-get button 'sly-button-echo)
button
(cl-remove-if-not
- #'(lambda (b)
+ (lambda (b)
(= (button-start b) (button-start button)))
(cdr buttons))))
(t
diff --git a/lib/sly-common.el b/lib/sly-common.el
index a6a02acbbf6..e7e4c0a2465 100644
--- a/lib/sly-common.el
+++ b/lib/sly-common.el
@@ -69,7 +69,7 @@ Flash the resulting region if FLASH-P"
,dont-erase
,recover-point-p
,flash-p
- #'(lambda () ,@body)))
+ (lambda () ,@body)))
(provide 'sly-common)
diff --git a/lib/sly-messages.el b/lib/sly-messages.el
index 6d1c93c1325..0d35dc7d49a 100644
--- a/lib/sly-messages.el
+++ b/lib/sly-messages.el
@@ -46,7 +46,7 @@ A nil value for WAIT means \"now\".
SIT-FOR is has the semantincs of `minibuffer-message-timeout', which see."
(run-with-timer
wait nil
- #'(lambda ()
+ (lambda ()
(let ((existing sly--last-message)
(text (apply #'format format args)))
(if (minibuffer-window-active-p (minibuffer-window))
@@ -56,7 +56,7 @@ SIT-FOR is has the semantincs of
`minibuffer-message-timeout', which see."
(run-with-timer
sit-for
nil
- #'(lambda ()
+ (lambda ()
;; restore the message
(when existing
(message "%s" existing)))))))))
diff --git a/lib/sly-tests.el b/lib/sly-tests.el
index 6c2abcfd392..36974b343bf 100644
--- a/lib/sly-tests.el
+++ b/lib/sly-tests.el
@@ -129,7 +129,7 @@ Also don't error if `ert.el' is missing."
(if (cl-find-if
(lambda (impl)
(unless (listp impl)
- (setq impl (list impl #'(lambda (&rest _ign) t))))
+ (setq impl (list impl (lambda (&rest _ign) t))))
(and (equal (car impl)
(sly-lisp-implementation-name))
(funcall
(cadr impl)
@@ -360,7 +360,7 @@ conditions (assertions)."
'(("foo")
("#:foo")
("#'foo")
- ("#'(lambda (x) x)")
+ ("(lambda (x) x)")
("()"))
(with-temp-buffer
(lisp-mode)
@@ -1343,7 +1343,7 @@ Reconnect afterwards."
,(when (null landing) '(kill-emacs 0))
(add-hook
'sly-connected-hook
- #'(lambda ()
+ (lambda ()
(condition-case err
(progn
,@landing
diff --git a/sly.el b/sly.el
index 580a6249c7c..322d02d94c6 100644
--- a/sly.el
+++ b/sly.el
@@ -188,7 +188,7 @@ in `sly-contribs.'")
;; "forgotten contribs" are the ones the chose not to
;; activate but whose definitions we have seen
;;
- (cl-remove-if #'(lambda (contrib)
+ (cl-remove-if (lambda (contrib)
(memq contrib all-active-contribs))
(sly-contrib--all-contribs))))
;; Disable any forgotten contribs that are enabled right now.
@@ -899,7 +899,7 @@ Assumes all insertions are made at point."
(defun sly-compose (&rest functions)
"Compose unary FUNCTIONS right-associatively, returning a function"
- #'(lambda (x)
+ (lambda (x)
(cl-reduce #'funcall functions :initial-value x :from-end t)))
(defun sly-curry (fun &rest args)
@@ -2115,7 +2115,7 @@ Respect `sly-keep-buffers-on-connection-close'."
(let* ((connections (or connections (sly--purge-connections)))
(connection-names (cl-loop for process in
(sort connections
- #'(lambda (p1 _p2)
+ (lambda (p1 _p2)
(eq p1
(sly-current-connection))))
collect (sly-connection-name process)))
(connection-names (if dont-require-match
@@ -2206,7 +2206,7 @@ See `sly-next-connection' for other args."
(defun sly-disconnect-all ()
"Disconnect all connections."
(interactive)
- (mapc #'(lambda (process)
+ (mapc (lambda (process)
(sly-net-close process "Disconnecting all connections"))
sly-net-processes))
@@ -2908,7 +2908,7 @@ See `sly-compile-and-load-file' for further details."
(sly-eval-async
`(slynk:compile-file-for-emacs ,file ,(if load t nil)
. ,(sly-hack-quotes options))
- #'(lambda (result)
+ (lambda (result)
(sly-compilation-finished result (current-buffer))))
(sly-message "Compiling %s..." file)))
@@ -2958,7 +2958,7 @@ to it depending on its sign."
',position
,(if (buffer-file-name) (sly-to-lisp-filename (buffer-file-name)))
',sly-compilation-policy)
- #'(lambda (result)
+ (lambda (result)
(sly-compilation-finished result nil)))))
(defun sly-compilation-position (start-offset)
@@ -4574,13 +4574,13 @@ TODO"
'face nil
'action 'sly-button-goto-source ;default action
'sly-button-inspect
- #'(lambda (name _type)
+ (lambda (name _type)
(sly-inspect (format "(quote %s)" name)))
'sly-button-goto-source
- #'(lambda (name _type)
+ (lambda (name _type)
(sly-edit-definition name 'window))
'sly-button-describe
- #'(lambda (name _type)
+ (lambda (name _type)
(sly-eval-describe `(slynk:describe-symbol ,name))))
(defun sly--package-designator-prefix (designator)
@@ -4642,7 +4642,7 @@ TODO"
start (point)
(list 'action 'sly-button-describe
'sly-button-describe
- #'(lambda (name type)
+ (lambda (name type)
(sly-eval-describe
`(slynk:describe-definition-for-emacs ,name
,type)))
'part-args (list item prop)
@@ -4746,9 +4746,9 @@ The most important commands:
(define-button-type 'sly-xref :supertype 'sly-part
'action 'sly-button-goto-source ;default action
'mouse-action 'sly-button-goto-source ;default action
- 'sly-button-show-source #'(lambda (location)
+ 'sly-button-show-source (lambda (location)
(sly-xref--show-location location))
- 'sly-button-goto-source #'(lambda (location)
+ 'sly-button-goto-source (lambda (location)
(sly--pop-to-source-location location
'sly-xref)))
(defun sly-xref-button (label location)
@@ -4889,7 +4889,7 @@ See `sly-calls-who' for an implementation-specific
alternative."
"Make multiple XREF requests at once."
(sly-eval-async
`(slynk:xrefs ',types ',symbol)
- #'(lambda (result)
+ (lambda (result)
(funcall (or continuation
#'sly-xref--show-results)
(cl-loop for (key . val) in result
@@ -5576,7 +5576,7 @@ pending Emacs continuations."
(defun sly-db--display-in-prev-sly-db-window (buffer _alist)
(let ((window
(get-window-with-predicate
- #'(lambda (w)
+ (lambda (w)
(let ((value (window-parameter w 'sly-db)))
(and value
(not (buffer-live-p value))))))))
@@ -5668,7 +5668,7 @@ RESTARTS should be a list ((NAME DESCRIPTION) ...)."
" " (sly-db-in-face restart-number (number-to-string number))
": " (sly-make-action-button (format "[%s]" name)
(let ((n number))
- #'(lambda (_button)
+ (lambda (_button)
(sly-db-invoke-restart
n)))
'restart-number number)
" " (sly-db-in-face restart string))
@@ -5676,7 +5676,7 @@ RESTARTS should be a list ((NAME DESCRIPTION) ...)."
(when (< end len)
(insert (sly-make-action-button
" --more--"
- #'(lambda (button)
+ (lambda (button)
(let ((inhibit-read-only t))
(delete-region (button-start button)
(1+ (button-end button)))
@@ -5684,7 +5684,7 @@ RESTARTS should be a list ((NAME DESCRIPTION) ...)."
(sly--when-let (win (get-buffer-window (current-buffer)))
(with-selected-window win
(sly-recenter (point-max))))))
- 'point-entered #'(lambda (_ new) (push-button new)))
+ 'point-entered (lambda (_ new) (push-button new)))
"\n"))))
(defun sly-db-frame-restartable-p (frame-spec)
@@ -5724,7 +5724,7 @@ If MORE is non-nil, more frames are on the Lisp stack."
(sly--when-let (win (get-buffer-window (current-buffer)))
(with-selected-window win
(sly-recenter (point-max))))))
- 'point-entered #'(lambda (_ new) (push-button new)))))))
+ 'point-entered (lambda (_ new) (push-button new)))))))
(defvar sly-db-frame-map
(let ((map (make-sparse-keymap)))
@@ -5876,15 +5876,15 @@ If MORE is non-nil, more frames are on the Lisp stack."
;;;;;; SLY-DB toggle details
(define-button-type 'sly-db-local-variable :supertype 'sly-part
'sly-button-inspect
- #'(lambda (frame-id var-id)
+ (lambda (frame-id var-id)
(sly-eval-for-inspector `(slynk:inspect-frame-var ,frame-id
,var-id)) )
'sly-button-pretty-print
- #'(lambda (frame-id var-id)
+ (lambda (frame-id var-id)
(sly-eval-describe `(slynk:pprint-frame-var ,frame-id
,var-id)))
'sly-button-describe
- #'(lambda (frame-id var-id)
+ (lambda (frame-id var-id)
(sly-eval-describe `(slynk:describe-frame-var ,frame-id
,var-id))))
@@ -6281,7 +6281,7 @@ was called originally."
(with-current-buffer (or buffer
(current-buffer))
(sly-eval-async '(slynk:list-threads)
- #'(lambda (threads)
+ (lambda (threads)
(with-current-buffer (current-buffer)
(sly--display-threads threads))))))
@@ -6450,13 +6450,13 @@ was called originally."
(interactive)
(set (make-local-variable 'tabulated-list-entries)
(mapcar
- #'(lambda (p)
+ (lambda (p)
(list p
`[,(if (eq sly-default-connection p) "*" " ")
(,(file-name-nondirectory (or (sly-connection-name p)
"unknown"))
action
- ,#'(lambda (_button)
+ ,(lambda (_button)
(and sly-connection-list-button-action
(funcall sly-connection-list-button-action p))))
,(car (process-contact p))
@@ -6603,20 +6603,20 @@ was called originally."
(define-button-type 'sly-inspector-part :supertype 'sly-part
'sly-button-inspect
- #'(lambda (id)
+ (lambda (id)
(sly-eval-for-inspector `(slynk:inspect-nth-part ,id)
:inspector-name (sly-maybe-read-inspector-name)))
'sly-button-pretty-print
- #'(lambda (id)
+ (lambda (id)
(sly-eval-describe `(slynk:pprint-inspector-part ,id)))
'sly-button-describe
- #'(lambda (id)
+ (lambda (id)
(sly-eval-describe `(slynk:describe-inspector-part ,id)))
'sly-button-show-source
- #'(lambda (id)
+ (lambda (id)
(sly-eval-async
`(slynk:find-source-location-for-emacs '(:inspector ,id))
- #'(lambda (result)
+ (lambda (result)
(sly--display-source-location result 'noerror)))))
(defun sly-inspector-part-button (label id &rest props)
@@ -6698,7 +6698,7 @@ If PREV resp. NEXT are true insert more-buttons as
needed."
((:action string id)
(sly-make-action-button
string
- #'(lambda (_button)
+ (lambda (_button)
(sly-eval-for-inspector `(slynk::inspector-call-nth-action ,id)
:restore-point t))))))))
diff --git a/slynk/backend/abcl.lisp b/slynk/backend/abcl.lisp
index 454f7e0f208..8d710e2fbcd 100644
--- a/slynk/backend/abcl.lisp
+++ b/slynk/backend/abcl.lisp
@@ -1207,7 +1207,7 @@ LIST is destructively modified."
(loop
for super = (java::jobject-class object) then (jclass-superclass super)
while super
- ;;; NOTE: In the next line, if I write #'(lambda.... then I
+ ;;; NOTE: In the next line, if I write (lambda.... then I
;;; get an error compiling "Attempt to throw to the
;;; nonexistent tag DUPLICATABLE-CODE-P.". WTF
for fields
diff --git a/slynk/backend/clasp.lisp b/slynk/backend/clasp.lisp
index 455df1107c3..4c0df21302d 100644
--- a/slynk/backend/clasp.lisp
+++ b/slynk/backend/clasp.lisp
@@ -156,13 +156,13 @@
(defun make-interrupt-handler (real-handler)
(let ((main-thread (find 'si:top-level (mp:all-processes)
:key #'mp:process-name)))
- #'(lambda (&rest args)
+ (lambda (&rest args)
(declare (ignore args))
(mp:interrupt-process main-thread real-handler))))
#-threads
(defun make-interrupt-handler (real-handler)
- #'(lambda (&rest args)
+ (lambda (&rest args)
(declare (ignore args))
(funcall real-handler)))
@@ -196,7 +196,7 @@
for fd = (socket-fd s)
collect (cons fd s)
do (serve-event:add-fd-handler fd :input
- #'(lambda (fd)
+ (lambda (fd)
(push fd active-fds))))))
(serve-event:serve-event timeout)
(loop for fd in active-fds collect (cdr (assoc fd fd-stream-alist)))))
@@ -398,7 +398,7 @@
(defun make-invoke-debugger-hook (hook)
(when hook
- #'(lambda (condition old-hook)
+ (lambda (condition old-hook)
;; Regard *debugger-hook* if set by user.
(if *debugger-hook*
nil ; decline, *DEBUGGER-HOOK* will be tried next.
diff --git a/slynk/backend/clisp.lisp b/slynk/backend/clisp.lisp
index ad5626d1aaf..b9a33369972 100644
--- a/slynk/backend/clisp.lisp
+++ b/slynk/backend/clisp.lisp
@@ -358,7 +358,7 @@ Return NIL if the symbol is unbound."
fspec)))))))
(defimplementation find-definitions (name)
- (mapcar #'(lambda (e) (fspec-location name e))
+ (mapcar (lambda (e) (fspec-location name e))
(documentation name 'sys::file)))
(defun trim-whitespace (string)
diff --git a/slynk/backend/ecl.lisp b/slynk/backend/ecl.lisp
index 25f38bc94b7..7d24026afb4 100644
--- a/slynk/backend/ecl.lisp
+++ b/slynk/backend/ecl.lisp
@@ -171,11 +171,11 @@
#+threads
(let ((main-thread (find 'si:top-level (mp:all-processes)
:key #'mp:process-name)))
- #'(lambda (&rest args)
+ (lambda (&rest args)
(declare (ignore args))
(mp:interrupt-process main-thread real-handler)))
#-threads
- #'(lambda (&rest args)
+ (lambda (&rest args)
(declare (ignore args))
(funcall real-handler)))
@@ -455,7 +455,7 @@
(defun make-invoke-debugger-hook (hook)
(when hook
- #'(lambda (condition old-hook)
+ (lambda (condition old-hook)
;; Regard *debugger-hook* if set by user.
(if *debugger-hook*
nil ; decline, *DEBUGGER-HOOK* will be tried next.
@@ -666,7 +666,7 @@
collect (destructuring-bind (dspec file . pos) annotation
`(,dspec ,(make-file-location file pos)))))
(t
- (mapcan #'(lambda (type) (find-definitions-by-type name type))
+ (mapcan (lambda (type) (find-definitions-by-type name type))
(classify-definition-name name))))))
(defun classify-definition-name (name)
@@ -1018,7 +1018,7 @@
for fd = (socket-fd s)
collect (cons fd s)
do (serve-event:add-fd-handler fd :input
- #'(lambda (fd)
+ (lambda (fd)
(push fd
active-fds))))))
(serve-event:serve-event timeout)
(loop for fd in active-fds collect (cdr (assoc fd
fd-stream-alist))))))
diff --git a/slynk/backend/lispworks.lisp b/slynk/backend/lispworks.lisp
index dd1ae5b197c..c754bbc4dce 100644
--- a/slynk/backend/lispworks.lisp
+++ b/slynk/backend/lispworks.lisp
@@ -798,7 +798,7 @@ function names like \(SETF GET)."
:fill-pointer 0
:adjustable t)))
(hcl:sweep-all-objects
- #'(lambda (object)
+ (lambda (object)
(when (and #+Harlequin-PC-Lisp (low:compiled-code-p object)
#+Harlequin-Unix-Lisp (sys:callablep object)
#-(or Harlequin-PC-Lisp Harlequin-Unix-Lisp)
@@ -816,7 +816,7 @@ function names like \(SETF GET)."
(let ((callees '()))
(system::find-constant$funcallable
'junk name
- :test #'(lambda (junk constant)
+ :test (lambda (junk constant)
(declare (ignore junk))
(when (and (symbolp constant)
(fboundp constant))
diff --git a/slynk/backend/mkcl.lisp b/slynk/backend/mkcl.lisp
index 9311007707a..32c1dad8eea 100644
--- a/slynk/backend/mkcl.lisp
+++ b/slynk/backend/mkcl.lisp
@@ -251,13 +251,13 @@
(*compile-filename* input-file))
(handler-bind (#|
(compiler::compiler-note
- #'(lambda (n)
+ (lambda (n)
(format t "~%slynk saw a compiler note: ~A~%" n)
(finish-output) nil))
(compiler::compiler-warning
- #'(lambda (w)
+ (lambda (w)
(format t "~%slynk saw a compiler warning: ~A~%" w)
(finish-output) nil))
(compiler::compiler-error
- #'(lambda (e)
+ (lambda (e)
(format t "~%slynk saw a compiler error: ~A~%" e)
(finish-output) nil))
|#
)
@@ -750,7 +750,7 @@
(setf (gethash thread *id-thread-map*) id))
(mt:thread-preset
thread
- #'(lambda ()
+ (lambda ()
(unwind-protect
(progn
;;(format t "~&Starting thread: ~S.~%" name) (finish-output)
diff --git a/slynk/backend/sbcl.lisp b/slynk/backend/sbcl.lisp
index c027e3406e0..691ca1e5d67 100644
--- a/slynk/backend/sbcl.lisp
+++ b/slynk/backend/sbcl.lisp
@@ -499,7 +499,7 @@
;; declaration. So we strip those as long as there's no
;; better way. (FIXME)
`(&any ,@(remove-if-not
- #'(lambda (qualifier)
+ (lambda (qualifier)
(find-symbol (symbol-name (first qualifier)) :cl))
flags :key #'ensure-list))
(call-next-method)))))
diff --git a/slynk/backend/scl.lisp b/slynk/backend/scl.lisp
index 8b7f1b597d4..3a7a31e2e02 100644
--- a/slynk/backend/scl.lisp
+++ b/slynk/backend/scl.lisp
@@ -1586,7 +1586,7 @@ The `symbol-value' of each element is a type tag.")
(defimplementation find-thread (id)
(block find-thread
(thread:map-over-threads
- #'(lambda (thread)
+ (lambda (thread)
(when (eql (getf (thread:thread-plist thread) 'id) id)
(return-from find-thread thread))))))
@@ -1609,11 +1609,11 @@ The `symbol-value' of each element is a type tag.")
(defimplementation all-threads ()
(let ((all-threads nil))
- (thread:map-over-threads #'(lambda (thread) (push thread all-threads)))
+ (thread:map-over-threads (lambda (thread) (push thread all-threads)))
all-threads))
(defimplementation interrupt-thread (thread fn)
- (thread:thread-interrupt thread #'(lambda ()
+ (thread:thread-interrupt thread (lambda ()
(sys:with-interrupts
(funcall fn)))))
diff --git a/slynk/metering.lisp b/slynk/metering.lisp
index a258e36572e..ee213db3798 100644
--- a/slynk/metering.lisp
+++ b/slynk/metering.lisp
@@ -535,7 +535,7 @@ Estimated total monitoring overhead: 0.88 seconds
(defun required-arguments (name)
(let* ((function (symbol-function name))
(args (ccl:arglist function))
- (pos (position-if #'(lambda (x)
+ (pos (position-if (lambda (x)
(and (symbolp x)
(let ((name (symbol-name x)))
(and (>= (length name) 1)
@@ -560,7 +560,7 @@ Estimated total monitoring overhead: 0.88 seconds
(core:function-lambda-list name)
(if foundp
(let ((position-and
- (position-if #'(lambda (x)
+ (position-if (lambda (x)
(and (symbolp x)
(let ((name (symbol-name x)))
(and (>= (length name) 1)
@@ -802,7 +802,7 @@ adjusted for overhead."
(pushnew name *monitored-functions*)
(setf (place-function name)
- #'(lambda (,@required-args
+ (lambda (,@required-args
,@(when optionals-p
`(&rest optional-args)))
(let ((prev-total-time *total-time*)
@@ -861,14 +861,14 @@ adjusted for overhead."
:name name
:old-definition old-definition
:new-definition (place-function name)
- :read-metering #'(lambda ()
+ :read-metering (lambda ()
(values inclusive-time
inclusive-cons
exclusive-time
exclusive-cons
calls
nested-calls))
- :reset-metering #'(lambda ()
+ :reset-metering (lambda ()
(setq inclusive-time 0
inclusive-cons 0
exclusive-time 0
@@ -950,7 +950,7 @@ adjusted for overhead."
and ignore it. See also unmonitor, report-monitoring,
display-monitoring-results and reset-time."
`(progn
- ,@(mapcar #'(lambda (name) `(monitoring-encapsulate ',name)) names)
+ ,@(mapcar (lambda (name) `(monitoring-encapsulate ',name)) names)
*monitored-functions*))
(defmacro UNMONITOR (&rest names)
diff --git a/slynk/slynk-backend.lisp b/slynk/slynk-backend.lisp
index e529fc3d9d8..cbcf5e79249 100644
--- a/slynk/slynk-backend.lisp
+++ b/slynk/slynk-backend.lisp
@@ -1123,7 +1123,7 @@ returns.")
(let ((gblock (gensym "CONVERTING-ERRORS+")))
`(block ,gblock
(handler-bind ((error
- #'(lambda (e)
+ (lambda (e)
(if *debug-slynk-backend*
nil ;decline
(return-from ,gblock
diff --git a/slynk/slynk-completion.lisp b/slynk/slynk-completion.lisp
index dd5c489a445..d918a767158 100644
--- a/slynk/slynk-completion.lisp
+++ b/slynk/slynk-completion.lisp
@@ -98,12 +98,12 @@ a list for each collection, in order.
\(foo \(first x\)\)
\(bar \(second x\)\)\)\)
Returns two values: \(A B C\) and \(1 2 3\)."
- (let ((vars (mapcar #'(lambda (x) (gensym (symbol-name x))) collectors))
+ (let ((vars (mapcar (lambda (x) (gensym (symbol-name x))) collectors))
(initial-values (mapcar (constantly nil) collectors)))
`(let ,(mapcar #'list vars initial-values)
- (flet ,(mapcar #'(lambda (c v) `(,c (x) (push x ,v) (values)))
collectors vars)
+ (flet ,(mapcar (lambda (c v) `(,c (x) (push x ,v) (values))) collectors
vars)
,@body
- (values ,@(mapcar #'(lambda (v) `(reverse ,v)) vars))))))
+ (values ,@(mapcar (lambda (v) `(reverse ,v)) vars))))))
(defun to-chunks (string indexes)
"Return chunks of STRING in as specified by INDEXES."
diff --git a/slynk/slynk-loader.lisp b/slynk/slynk-loader.lisp
index efe06554d2f..66ead00bee1 100644
--- a/slynk/slynk-loader.lisp
+++ b/slynk/slynk-loader.lisp
@@ -327,7 +327,7 @@ global variabes in SLYNK."
(unless (provided)
(let* ((src-file-name (substitute #\- #\/ (string-downcase module)))
(src-file
- (some #'(lambda (dir)
+ (some (lambda (dir)
(probe-file (make-pathname
:name src-file-name
:type "lisp"
diff --git a/slynk/slynk.lisp b/slynk/slynk.lisp
index ad17d851b13..9667578e5f8 100644
--- a/slynk/slynk.lisp
+++ b/slynk/slynk.lisp
@@ -592,7 +592,7 @@ corresponding values in the CDR of VALUE."
(let ((listener-sym (gensym))
(body-fn-sym (gensym)))
`(let ((,listener-sym (default-listener ,connection))
- (,body-fn-sym #'(lambda () ,@body)))
+ (,body-fn-sym (lambda () ,@body)))
(if ,listener-sym
(with-listener-bindings ,listener-sym
(funcall ,body-fn-sym))
@@ -1174,7 +1174,7 @@ point the thread terminates and CHANNEL is closed."
(escape-non-ascii (safe-condition-message condition)))
(let ((*emacs-connection* c))
(format *log-output* "~&;; closing ~a channels~%" (length
(connection-channels c)))
- (mapc #'(lambda (c) (close-channel c :force t)) (connection-channels c))
+ (mapc (lambda (c) (close-channel c :force t)) (connection-channels c))
(format *log-output* "~&;; closing ~a listeners~%" (length
(connection-listeners c)))
(ignore-errors
(mapc #'close-listener (connection-listeners c))))
@@ -2062,7 +2062,7 @@ May insert newlines between each of VALUES. Considers
(t
(let ((strings (loop for v in values
collect (funcall fn v))))
- (if (some #'(lambda (s) (find #\Newline s))
+ (if (some (lambda (s) (find #\Newline s))
strings)
(format nil "~{~a~^~%~}" strings)
(format nil "~{~a~^, ~}" strings)))))))
@@ -2665,7 +2665,7 @@ Operation was KERNEL::DIVISION, operands (1 0).\"
(format nil "~a" (or prompt
"[restart prompt] :"))))))
(make-output-stream
- #'(lambda (s)
+ (lambda (s)
(setq prompt
(concatenate 'string
(or prompt "")
diff --git a/slynk/xref.lisp b/slynk/xref.lisp
index b913002c4ae..890910cb756 100644
--- a/slynk/xref.lisp
+++ b/slynk/xref.lisp
@@ -1249,7 +1249,7 @@ Rooted calling trees:
files in which the symbol is called, :readers to get variable references,
and :setters to get variable binding and assignments. Ignores functions
of types listed in types-to-ignore."
- (maphash #'(lambda (name callers)
+ (maphash (lambda (name callers)
(unless (or (member (pattern-caller-type name)
types-to-ignore)
;; When we're doing fancy package crap,
@@ -1274,27 +1274,27 @@ Rooted calling trees:
through the code, so this can save some time.)"
(with-open-file (stream filename :direction :output)
(format stream "~&(clear-tables)")
- (maphash #'(lambda (x y)
+ (maphash (lambda (x y)
(format stream "~&(setf (source-file '~S) '~S)"
x y))
*source-file*)
- (maphash #'(lambda (x y)
+ (maphash (lambda (x y)
(format stream "~&(setf (callers-list '~S :file) '~S)"
x y))
*file-callers-database*)
- (maphash #'(lambda (x y)
+ (maphash (lambda (x y)
(format stream "~&(setf (callers-list '~S :callers) '~S)"
x y))
*callers-database*)
- (maphash #'(lambda (x y)
+ (maphash (lambda (x y)
(format stream "~&(setf (callers-list '~S :callees) '~S)"
x y))
*callees-database*)
- (maphash #'(lambda (x y)
+ (maphash (lambda (x y)
(format stream "~&(setf (callers-list '~S :readers) '~S)"
x y))
*readers-database*)
- (maphash #'(lambda (x y)
+ (maphash (lambda (x y)
(format stream "~&(setf (callers-list '~S :setters) '~S)"
x y))
*setters-database*)))
@@ -1310,7 +1310,7 @@ Rooted calling trees:
"Makes a copy of the hash table in which (name value*) pairs
are inverted to (value name*) pairs."
(let ((target (make-hash-table :test #'equal)))
- (maphash #'(lambda (key values)
+ (maphash (lambda (key values)
(dolist (value values)
(unless (member (pattern-caller-type key)
types-to-ignore)
@@ -1324,7 +1324,7 @@ Rooted calling trees:
DATABASE. This function may be useful for automatically resolving
file references for automatic creation of a system definition (defsystem)."
(let ((file-ref-ht (make-hash-table :test #'equal)))
- (maphash #'(lambda (key values)
+ (maphash (lambda (key values)
(let ((key-file (source-file key)))
(when key
(dolist (value values)
@@ -1340,7 +1340,7 @@ Rooted calling trees:
"Prints a list of file dependencies for the references listed in DATABASE.
This function may be useful for automatically computing file loading
constraints for a system definition tool."
- (maphash #'(lambda (key value) (format t "~&~S --> ~S" key value))
+ (maphash (lambda (key value) (format t "~&~S --> ~S" key value))
(determine-file-dependencies database)))
;;; The following functions demonstrate a possible way to interface
@@ -1405,7 +1405,7 @@ Rooted calling trees:
(other-database (ecase mode
(:call-graph *callees-database*)
(:caller-graph *callers-database*))))
- (maphash #'(lambda (name value)
+ (maphash (lambda (name value)
(declare (ignore value))
(unless (member (pattern-caller-type name)
types-to-ignore)
@@ -1566,7 +1566,7 @@ Rooted calling trees:
(with-open-file (*standard-output* file :direction :output)
(psgraph:psgraph start
#'clos::class-direct-subclasses
- #'(lambda (x)
+ (lambda (x)
(list (format nil "~A" (clos::class-name x))))
t nil #'eq)))))
diff --git a/test/sly-autodoc-tests.el b/test/sly-autodoc-tests.el
index 0e300d739d1..8523465093f 100644
--- a/test/sly-autodoc-tests.el
+++ b/test/sly-autodoc-tests.el
@@ -94,13 +94,13 @@
"(create-socket ===> host <=== port &key backlog)")
;; Test with syntactic sugar
- ("#'(lambda () (slynk::create-socket*HERE*"
+ ("(lambda () (slynk::create-socket*HERE*"
"(create-socket host port &key backlog)")
("`(lambda () ,(slynk::create-socket*HERE*"
"(create-socket host port &key backlog)")
- ("(remove-if #'(lambda () (slynk::create-socket*HERE*"
+ ("(remove-if (lambda () (slynk::create-socket*HERE*"
"(create-socket host port &key backlog)")
- ("`(remove-if #'(lambda () ,@(slynk::create-socket*HERE*"
+ ("`(remove-if (lambda () ,@(slynk::create-socket*HERE*"
"(create-socket host port &key backlog)")
;; Test &optional
diff --git a/test/sly-parse-tests.el b/test/sly-parse-tests.el
index 3018e3b745e..383af03e693 100644
--- a/test/sly-parse-tests.el
+++ b/test/sly-parse-tests.el
@@ -37,7 +37,7 @@
("defun" "" ,sly-cursor-marker))
("(defun #-(and) (bar) f*HERE*"
("defun" "f" ,sly-cursor-marker))
- ("(remove-if #'(lambda (x)*HERE*"
+ ("(remove-if (lambda (x)*HERE*"
("remove-if" ("lambda" ("x") ,sly-cursor-marker)))
("`(remove-if ,(lambda (x)*HERE*"
("remove-if" ("lambda" ("x") ,sly-cursor-marker)))
diff --git a/test/sly-stickers-tests.el b/test/sly-stickers-tests.el
index 5d0929368ac..899c703e077 100644
--- a/test/sly-stickers-tests.el
+++ b/test/sly-stickers-tests.el
@@ -40,7 +40,7 @@
(cl-defmacro sly-stickers--with-fixture ((forms sticker-prefixes) &rest body)
(declare (indent defun) (debug (sexp &rest form)))
- `(sly-stickers--call-with-fixture #'(lambda () ,@body) ,forms
,sticker-prefixes))
+ `(sly-stickers--call-with-fixture (lambda () ,@body) ,forms
,sticker-prefixes))
(defun sly-stickers--topmost-sticker ()
(car (sly-button--overlays-at
