extras/swank-parenscript.lisp

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