extras/swank-parenscript.lisp

   1 ;; SPDX-License-Identifier: BSD-3-Clause
   2
   3 (in-package :parenscript)
   4
   5 (defun parenscript-function-p (symbol)
   6   (and (or (gethash symbol *ps-macro-toplevel* )
   7            (gethash symbol *ps-function-toplevel-cache*))
   8        t))
   9 #++
  10 (pushnew 'parenscript-function-p swank::*external-valid-function-name-p-hooks*)
  11
  12 (defun parenscript-arglist (fname)
  13   (acond
  14     ((gethash fname *ps-macro-toplevel-lambda-list*)
  15      (values it t))
  16     ((gethash fname *ps-function-toplevel-cache*)
  17      (values it t))))
  18 #++
  19 (pushnew 'parenscript-arglist swank::*external-arglist-hooks*)