1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: cl-symbols.lisp
6 ;;;; Purpose: Returns all defined Common Lisp symbols
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Apr 2000
10 ;;;; $Id: cl-symbols.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $
12 ;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg
14 ;;;; Kmrcl users are granted the rights to distribute and use this software
15 ;;;; as governed by the terms of the GNU General Public License.
16 ;;;; *************************************************************************
21 (append (cl-variables) (cl-functions)))
23 (defun cl-variables ()
25 (do-symbols (s 'common-lisp)
26 (multiple-value-bind (sym status)
27 (find-symbol (symbol-name s) 'common-lisp)
28 (when (and (or (eq status :external)
29 (eq status :internal))
34 (defun cl-functions ()
36 (do-symbols (s 'common-lisp)
37 (multiple-value-bind (sym status)
38 (find-symbol (symbol-name s) 'common-lisp)
39 (when (and (or (eq status :external)
40 (eq status :internal))