/usr/share/maxima/5.32.1/src/compat.lisp is in maxima-src 5.32.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | ;;; -*- Mode: Lisp; Package: Maxima; Syntax: Common-Lisp; Base: 10 -*- ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; The data in this file contains enhancments. ;;;;;
;;; ;;;;;
;;; Copyright (c) 1984,1987 by William Schelter,University of Texas ;;;;;
;;; All rights reserved ;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(in-package :maxima)
;; Maclisp compatibility definitions.
;; This file is for Lisp differences only. No knowledge of Macsyma should be
;; contained in this file.
;; Run time stuff
(defun symbolconc (&rest syms)
(intern (apply #'concatenate 'string
(mapcar #'(lambda (sym)
(cond ((floatp sym)
(format nil "~S" sym))
((integerp sym)
(format nil "~D" sym))
((symbolp sym)
(symbol-name sym))
(t sym)))
syms))))
;; make a symbol out of the printed representations of all args
(defun concat (&rest args)
(intern (format nil "~{~A~^~}" args)))
|