/usr/share/maxima/5.41.0/src/compat.lisp is in maxima-src 5.41.0-3.
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 | ;;; -*- 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 args)
"make a symbol out of the printed representations of all args"
(intern (apply #'concatenate 'string
(mapcar #'(lambda (s)
(typecase s
(integer (format nil "~d" s))
(symbol (symbol-name s))
(string s)
(t (format nil "~a" s))))
args))))
|