← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to share/affine/polyb.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2006-10-18 14:52:42 UTC
  • mto: (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20061018145242-vzyrm5hmxr8kiosf
Import upstream version 5.10.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/affine/polyb.lisp
5
5
;;;     All rights reserved                                            ;;;;;
6
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7
7
 
8
 
(in-package "MAXIMA")
 
8
(in-package :maxima)
9
9
 
10
10
(defun $circle_times (&rest l)
11
11
  (case  (length l)
1350
1350
(DEFUN MY-DRAW-STRING ( A-STRING FROMX FROMY &OPTIONAL (STREAM *standard-output*))
1351
1351
  (MULTIPLE-VALUE-BIND (X Y) (SEND STREAM :READ-CURSORPOS :CHARACTER)
1352
1352
  (SEND STREAM :SET-CURSORPOS  (F1+ FROMX) FROMY :CHARACTER)
1353
 
  (SLOOP FOR I FROM 0 BELOW (length (the lisp::array A-STRING))
 
1353
  (SLOOP FOR I FROM 0 BELOW (length (the cl:array A-STRING))
1354
1354
        UNLESS (EQ (AREF A-STRING I) 141)
1355
1355
        DO (SEND STREAM :TYO (AREF A-STRING I))
1356
1356
        ELSE  DO (INCF FROMY) (SEND STREAM :SET-CURSORPOS   FROMX FROMY :CHARACTER)
1370
1370
(defun string-trim-replace ( replace  replace-by sstring)
1371
1371
  (cond ((stringp replace-by )(setq replace-by (aref replace-by 0))))
1372
1372
  (cond ((stringp replace) (setq replace (listarray replace))))
1373
 
  (sloop for i from 0 below (length (the lisp::array sstring))
 
1373
  (sloop for i from 0 below (length (the cl:array sstring))
1374
1374
        while (memq (aref sstring i) replace)
1375
1375
                    do (setf (aref sstring i) replace-by))
1376
 
  (sloop for i downfrom (f1- (length (the lisp::array sstring))) to 0
 
1376
  (sloop for i downfrom (f1- (length (the cl:array sstring))) to 0
1377
1377
        while (memq (aref sstring i) replace)
1378
1378
                    do (setf (aref sstring i) replace-by))
1379
1379
  sstring)