← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/matcom.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Christophe Sauthier
  • Date: 2009-07-13 15:38:41 UTC
  • mfrom: (3.1.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090713153841-gtux06oun30kuuo7
Tags: 5.17.1-1ubuntu1
https://launchpad.net/bugs/296643
https://launchpad.net/bugs/242243
* Merge from debian unstable, remaining changes (LP: #296643, LP: #242243):
   - debian/maxima-doc.doc-base.{tips, plotting}:
    + Use .shtml instead of .html to fix lintian errors.
   - debian/maxima-emacs.emacsen-install:
    + Install symlinks for source files rather than copying them.  This
      makes find-function work.
    + Install symlink for *.lisp so that we don't need to add
      /usr/share/emacs/site-lisp/maxima to load-path.
  - debian/maxima-emacs.emacsen-startup:
    + Remove use of /usr/share/emacs/site-lisp/maxima, since this
      causes load-path shadows and is not needed anymore.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/matcom.lisp
77
77
                 (makepreds (cdr l) nil)))))
78
78
 
79
79
(defun defmatch1 (pt e) 
80
 
  (prog (topreflist program) 
 
80
  (prog (topreflist program prog-variables) 
81
81
     (setq topreflist (list e))
82
82
     (cond ((atom (errset (compilematch e pt)))
83
83
            (merror "Match processing aborted~%"))
87
87
                            `(declare (special ,e))
88
88
                            (list 'catch ''match
89
89
                                  (nconc (list 'prog)
90
 
                                         (list (cdr (reverse topreflist)))
 
90
                                         (list (setq prog-variables (cdr (reverse topreflist))))
 
91
                     `((declare (special ,@ prog-variables)))
91
92
                                         program
92
93
                                         (list (list 'return t))))))))))
93
94
 
477
478
      (list
478
479
       'lambda
479
480
       '(x ans a3)
480
 
       (if oldstuff (list 'setq 'x (list oldstuff 'x 'ans 'a3)))
 
481
       (if oldstuff
 
482
         (list 'setq 'x (list oldstuff 'x 'ans 'a3))
 
483
         '(declare (ignore a3)))
481
484
       (list
482
485
        'cond
483
486
        '(*afterflag x)
518
521
 
519
522
(defun announce-rule-firing (rulename expr simplified-expr)
520
523
  (let (($display2d nil) ($stringdisp nil))
521
 
    ($print (make-mstring "By") rulename '|&,| expr '|&-->| simplified-expr))
 
524
    ($print "By" rulename "," expr "-->" simplified-expr))
522
525
  simplified-expr)
523
526
 
524
527
(defmspec $defrule (form)