src/glisp/package.lisp

   1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: GLISP-TEMP; -*-
   2 ;;; ---------------------------------------------------------------------------
   3 ;;;     Title: Generating a sane DEFPACKAGE for GLISP
   4 ;;;   Created: 1999-05-25
   5 ;;;    Author: Gilbert Baumann <gilbert@base-engineering.com>
   6 ;;;   License: MIT style (see below)
   7 ;;; ---------------------------------------------------------------------------
   8 ;;;  (c) copyright 1999,2000 by Gilbert Baumann
   9
  10 ;;;  Permission is hereby granted, free of charge, to any person obtaining
  11 ;;;  a copy of this software and associated documentation files (the
  12 ;;;  "Software"), to deal in the Software without restriction, including
  13 ;;;  without limitation the rights to use, copy, modify, merge, publish,
  14 ;;;  distribute, sublicense, and/or sell copies of the Software, and to
  15 ;;;  permit persons to whom the Software is furnished to do so, subject to
  16 ;;;  the following conditions:
  17 ;;;
  18 ;;;  The above copyright notice and this permission notice shall be
  19 ;;;  included in all copies or substantial portions of the Software.
  20 ;;;
  21 ;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  22 ;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  23 ;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  24 ;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  25 ;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  26 ;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  27 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  28
  29 (in-package :cl-user)
  30
  31 (defpackage "GLISP"
  32   (:use :cl)
  33   (:export "DEFSUBST"
  34            "G/MAKE-STRING"
  35            "WITH-TIMEOUT"
  36
  37            ;; util.lisp :
  38            "ALWAYS"
  39            "CL-BYTE-STREAM"
  40            "CL-CHAR-STREAM"
  41            "CL-STREAM"
  42            "COMPOSE"
  43            "CURRY"
  44            "FALSE"
  45            "FORCE"
  46            "G/CLOSE"
  47            "G/FINISH-OUTPUT"
  48            "G/PEEK-CHAR"
  49            "G/READ-BYTE"
  50            "G/READ-BYTE-SEQUENCE"
  51            "G/READ-CHAR"
  52            "G/READ-CHAR-SEQUENCE"
  53            "G/READ-LINE"
  54            "G/READ-LINE*"
  55            "G/UNREAD-BYTE"
  56            "G/UNREAD-CHAR"
  57            "G/WRITE-BYTE"
  58            "G/WRITE-BYTE-SEQUENCE"
  59            "G/WRITE-CHAR"
  60            "G/WRITE-STRING"
  61            "GSTREAM"
  62            "MAP-ARRAY"
  63            "MAPFCAR"
  64            "MAX*"
  65            "MAXF"
  66            "MIN*"
  67            "MINF"
  68            "MULTIPLE-VALUE-OR"
  69            "MULTIPLE-VALUE-SOME"
  70            "NCONCF"
  71            "NEQ"
  72            "PROMISE"
  73            "RCURRY"
  74            "SANIFY-STRING"
  75            "SHOW"
  76            "SPLIT-BY"
  77            "SPLIT-BY-IF"
  78            "SPLIT-BY-MEMBER"
  79            "SPLIT-STRING"
  80            "STRING-BEGIN-EQUAL"
  81            "TRUE"
  82            "UNTIL"
  83            "USE-BYTE-FOR-CHAR-STREAM-FLAVOUR"
  84            "USE-CHAR-FOR-BYTE-STREAM-FLAVOUR"
  85            "WHILE"
  86            "WHITE-SPACE-P"
  87
  88            "CL-BYTE-STREAM->GSTREAM"
  89            "CL-CHAR-STREAM->GSTREAM"
  90
  91            "FIND-TEMPORARY-FILE"
  92            "DELETE-TEMPORARY-FILE"
  93            "WITH-TEMPORARY-FILE"
  94
  95            "SET-EQUAL"
  96            "MAYBE-PARSE-INTEGER"
  97            "NOP"
  98            "WITH-STRUCTURE-SLOTS"
  99
 100            "COMPILE-FUNCALL"
 101            "FUNCALL*"
 102            "MAPC*"
 103            "VREDUCE*"
 104            "LREDUCE*"
 105            "WITH-UNIQUE-NAMES"
 106
 107            "G/MAKE-HASH-TABLE"
 108            "G/HASHGET"
 109            "G/CLRHASH"
 110            "STIR-HASH-CODES"
 111            "HASH-SEQUENCE"
 112            "HASH/STRING-EQUAL"
 113            "MAKE-STRING-EQUAL-HASH-TABLE"
 114
 115            "PRIMEP"
 116
 117            ;; match.lisp
 118            "DEFINE-MATCH-MACRO"
 119            "IF-MATCH"
 120            "GSTREAM-AS-STRING"
 121
 122            ;; dep-*
 123            "READ-BYTE-SEQUENCE"
 124            "READ-CHAR-SEQUENCE"
 125            "RUN-UNIX-SHELL-COMMAND"
 126            "GETENV"))
 127
 128 (defpackage "GLUSER"
 129   (:use "CL" "GLISP"))