src/compat.lisp

   1 ;;; -*-  Mode: Lisp; Package: Maxima; Syntax: Common-Lisp; Base: 10 -*- ;;;;
   2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   3 ;;;     The data in this file contains enhancements.                   ;;;;;
   4 ;;;                                                                    ;;;;;
   5 ;;;  Copyright (c) 1984,1987 by William Schelter,University of Texas   ;;;;;
   6 ;;;     All rights reserved                                            ;;;;;
   7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   8
   9 (in-package :maxima)
  10
  11 ;; Maclisp compatibility definitions.
  12 ;; This file is for Lisp differences only.  No knowledge of Macsyma should be
  13 ;; contained in this file.
  14
  15 ;; Run time stuff
  16
  17 (defun symbolconc (&rest args)
  18   "make a symbol out of the printed representations of all args"
  19   (intern (apply #'concatenate 'string
  20                  (mapcar #'(lambda (s)
  21                              (typecase s
  22                                (integer (format nil "~d" s))
  23                                (symbol (symbol-name s))
  24                                (string s)
  25                                (t (format nil "~a" s))))
  26                          args))))
  27