mirror of
https://github.com/PDP-10/its.git
synced 2026-01-17 00:33:22 +00:00
26 lines
950 B
Common Lisp
Executable File
26 lines
950 B
Common Lisp
Executable File
;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp; Package: Macsyma -*- ;;;;;;;;;;;;;;;;;;;
|
|
;;; (c) Copyright 1980 Massachusetts Institute of Technology ;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(macsyma-module readm macro)
|
|
|
|
;;; Macros dealing with the lisp reader.
|
|
|
|
#+MACLISP(DEFVAR /#-SYMBOLIC-CHARACTERS-TABLE)
|
|
|
|
(DEFMACRO |DEF#\SYMBOL| (SYM NUM)
|
|
#+MACLISP
|
|
`(PROGN 'COMPILE
|
|
(LET ((F (CAR (STATUS MACRO #/#))))
|
|
(OR (FBOUNDP F)
|
|
(LOAD (GET F 'AUTOLOAD))))
|
|
(LET ((SLOT (ASSOC ',SYM /#-SYMBOLIC-CHARACTERS-TABLE)))
|
|
(AND SLOT (NOT (EQUAL ',NUM (CDR SLOT)))
|
|
(FORMAT MSGFILES
|
|
'|~&; Warning: Redefining #\~S from ~S to ~S|
|
|
',SYM (CDR SLOT) ',NUM))
|
|
(OR (EQUAL SLOT '(,SYM . ,NUM))
|
|
(PUSH '(,SYM . ,NUM) /#-SYMBOLIC-CHARACTERS-TABLE)))
|
|
',(FORMAT NIL "#\~S => ~S" SYM NUM))
|
|
#-MACLISP
|
|
(ERROR "I don't know how to hack DEF#\SYMBOL here.")) |