← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to src/lmdcls.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Barry deFreese
  • Date: 2006-07-06 17:04:52 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20060706170452-j9ypoqc1kjfnz221
Tags: 5.9.3-1ubuntu1
* Re-sync with Debian
* Comment out backward-delete-char-untabify in maxima.el (Closes Malone #5273)
* debian/control: build-dep automake -> automake1.9 (Closes BTS: #374663)

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/lmdcls.lisp
6
6
;;;     All rights reserved                                            ;;;;;
7
7
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8
8
 
9
 
(in-package "MAXIMA")
 
9
(in-package :maxima)
10
10
;;to do add for other cl implementations.
11
11
;;(defun remove-type ( l)
12
12
;;  (loop for v in l
25
25
  (lisp:clines "#define MAKE_UNSPECIAL(x) (check_type_symbol(&(x)),(x)->s.s_stype = stp_ordinary, Cnil)")
26
26
  (lisp:defentry make-unspecial (lisp:object) (lisp:object "MAKE_UNSPECIAL")))
27
27
 
 
28
#+(or scl cmu)
 
29
(defun make-unspecial (symbol)
 
30
  (ext:clear-info variable c::kind symbol)
 
31
  symbol)
 
32
 
28
33
 
29
34
(defmacro declare-top (&rest decl-specs)
30
35
  `(eval-when
37
42
             when (eql (car v) 'unspecial)
38
43
             collect `(progn
39
44
                       ,@(loop for w in (cdr v)
40
 
                                collect #-gcl  `(remprop ',w
 
45
                                collect #-(or gcl scl cmu)
 
46
                                       `(remprop ',w
41
47
                                                 #-excl 'special
42
48
                                                 #+excl 'excl::.globally-special.)
43
 
                                #+gcl `(make-unspecial ',w)))
 
49
                                #+(or gcl scl cmu)
 
50
                                `(make-unspecial ',w)))
44
51
             else collect `(proclaim ',v))))
45
52
 
46
53
;;this list should contain all specials required by runtime or more
81
88
  $negsumdispflag $newfac $nolabels $norepeat $noundisp $numer
82
89
  $numer_pbranch $operators $opsubst $optimprefix $optionset $outchar
83
90
  $pagepause $parsewindow $partswitch $pfeformat $piece $pointbound
84
 
  $poislim $powerdisp $prederror $prodhack $programmode $props
 
91
  $poislim $powerdisp $prederror $programmode $props
85
92
  $radexpand $ratalgdenom $ratdenomdivide $ratepsilon $ratexpand
86
93
  $ratfac $ratmx $ratprint $ratsimpexpons $ratvars $ratweights
87
94
  $ratwtlvl $realonly $refcheck $resultant $rmxchar $rombergabs
91
98
  $solvedecomposes $solveexplicit $solvefactors $solvenullwarn
92
99
  $solveradcan $solvetrigwarn $solve_inconsistent_error $sparse
93
100
  $special $sqrtdispflag $stardisp $storenum $sublis_apply_lambda
94
 
  $subnumsimp $subscrmap $sumexpand $sumhack $sumsplitfact
 
101
  $subnumsimp $subscrmap $sumexpand $sumsplitfact
95
102
  $superlogcon $suspend $taylor_logexpand
96
103
  $taylor_truncate_polynomials $timer $timer_devalue
97
104
  $to_call_lisp_compiler $trace $trace_break_arg $trace_max_indent