| blob | beac41c14a5b084ea360915513df7bce37d8825e |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 2edcbd958861 2012/05/30 03:34:52 toy $"
3 ;;; "f2cl2.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
4 ;;; "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
5 ;;; "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
6 ;;; "f2cl5.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $")
10 ;;; Using Lisp CMU Common Lisp 20d (20D Unicode)
11 ;;;
12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
13 ;;; (:coerce-assigns :as-needed) (:array-type ':array)
14 ;;; (:array-slicing t) (:declare-common nil)
15 ;;; (:float-format double-float))
67 incx))))
90 k))))
92 ((> i
96 nil)
101 x-%offset%)
102 (+
106 x-%offset%)
107 (* temp
110 j)
112 a-%offset%))))
113 label10))
118 x-%offset%)
119 (*
123 x-%offset%)
127 a-%offset%))))))
128 label20)))
140 x-%offset%))
148 k))))
150 ((> i
154 nil)
159 x-%offset%)
160 (+
164 x-%offset%)
165 (* temp
168 j)
170 a-%offset%))))
172 label30))
177 x-%offset%)
178 (*
182 x-%offset%)
186 a-%offset%))))))
189 label40)))))
212 x-%offset%)
213 (+
217 x-%offset%)
218 (* temp
221 j)
223 a-%offset%))))
224 label50))
229 x-%offset%)
230 (*
234 x-%offset%)
238 a-%offset%))))))
239 label60)))
245 incx)))
256 x-%offset%))
270 x-%offset%)
271 (+
275 x-%offset%)
276 (* temp
279 j)
281 a-%offset%))))
283 label70))
288 x-%offset%)
289 (*
293 x-%offset%)
297 a-%offset%))))))
301 label80)))))))
318 (* temp
322 a-%offset%))))
328 ((> i
333 k)))))
334 nil)
337 (+ temp
338 (*
341 j)
343 a-%offset%)
347 x-%offset%))))
348 label90)))
352 (* temp
357 a-%offset%)))))
363 ((> i
368 k)))))
369 nil)
372 (+ temp
373 (*
377 j)
379 a-%offset%))
383 x-%offset%))))
384 label100))))
386 temp)
387 label110)))
393 incx)))
407 (* temp
411 a-%offset%))))
417 ((> i
422 k)))))
423 nil)
426 (+ temp
427 (*
430 j)
432 a-%offset%)
436 x-%offset%))))
438 label120)))
442 (* temp
447 a-%offset%)))))
453 ((> i
458 k)))))
459 nil)
462 (+ temp
463 (*
467 j)
469 a-%offset%))
473 x-%offset%))))
475 label130))))
477 temp)
479 label140)))))
493 (* temp
497 a-%offset%))))
500 ((> i
504 nil)
507 (+ temp
508 (*
511 j)
513 a-%offset%)
517 x-%offset%))))
518 label150)))
522 (* temp
527 a-%offset%)))))
530 ((> i
534 nil)
537 (+ temp
538 (*
542 j)
544 a-%offset%))
548 x-%offset%))))
549 label160))))
551 temp)
552 label170)))
567 (* temp
571 a-%offset%))))
574 ((> i
578 nil)
581 (+ temp
582 (*
585 j)
587 a-%offset%)
591 x-%offset%))))
593 label180)))
597 (* temp
602 a-%offset%)))))
605 ((> i
609 nil)
612 (+ temp
613 (*
617 j)
619 a-%offset%))
623 x-%offset%))))
625 label190))))
627 temp)
629 label200))))))))
631 end_label