mirror of
https://github.com/PDP-10/its.git
synced 2026-03-04 18:54:08 +00:00
34 lines
1.2 KiB
Common Lisp
Executable File
34 lines
1.2 KiB
Common Lisp
Executable File
;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp; Package: Macsyma -*- ;;;;;;;;;;;;;;;;;;;
|
|
;;; (c) Copyright 1980 Massachusetts Institute of Technology ;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(macsyma-module lmrund macro)
|
|
|
|
|
|
;; Lisp Machine compatibility package -- declarations
|
|
|
|
;; This file is a part of the Lisp Machine compatibility package in LIBMAX,
|
|
;; consisting of the files LMRUN, LMMAC, and LMINCL. It contains the
|
|
;; declarations for the functions and globals in LIBMAX;LMRUN.
|
|
|
|
(if (fboundp '*expr)
|
|
(*expr butlast nbutlast firstn mem find-position-in-list
|
|
ass rassq rassoc
|
|
character char-equal char-lessp char-upcase char-downcase
|
|
string string-trim string-left-trim string-right-trim))
|
|
(if (fboundp '*lexpr)
|
|
(*lexpr substring string-append string-equal
|
|
string-search string-search-char string-search-not-char
|
|
yes-or-no-p y-or-n-p))
|
|
(if (fboundp 'fixnum)
|
|
(fixnum (character notype)
|
|
(char-upcase fixnum)
|
|
(char-downcase fixnum)))
|
|
(if (fboundp 'notyp)
|
|
(notype (firstn fixnum notype)
|
|
(char-equal fixnum fixnum)
|
|
(char-lessp fixnum fixnum)))
|
|
(if (fboundp 'special)
|
|
(special whitespace-char-list
|
|
standard-output standard-input query-io))
|