cgit.sxemacs.org Git - packages/blob - xemacs-packages/ilisp/mzscheme-ilisp.scm

   1 ;;;; mzscheme-ilisp.scm --- ILISP support functions for MzScheme
   2 ;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de>
   3 ;;;
   4 ;;; Copyright (C) 2000 Matthias Koeppe
   5 ;;;
   6 ;;; This file is part of ILISP.
   7 ;;; Please refer to the file COPYING for copyrights and licensing
   8 ;;; information.
   9 ;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
  10 ;;; of present and past contributors.
  11 ;;;
  12 ;;; $Id: mzscheme-ilisp.scm,v 1.1 2001-07-02 09:40:50 youngs Exp $
  13
  14 (define (ilisp-matching-symbols string package function? external? prefix?)
  15   (let loop ((syms (make-global-value-list))
  16              (result '()))
  17     (if (null? syms)
  18         result
  19         (let ((sym-str (symbol->string (caar syms))))
  20           (if (and (>= (string-length sym-str) (string-length string))
  21                    (string=? (substring sym-str 0 (string-length string))
  22                              string))
  23               (loop (cdr syms)
  24                     (cons (list (symbol->string (caar syms))) result))
  25               (loop (cdr syms) result))))))
  26
  27 ;;; end of file -- mzscheme-ilisp.scm --