| blob | 1a3c7b829daf3e96783412f213aade4fb38b9107 |
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))
63 incx))))
82 ((> i
86 nil)
91 x-%offset%)
92 (+
96 x-%offset%)
97 (* temp
101 ap-%offset%))))
103 label10))
108 x-%offset%)
109 (*
113 x-%offset%)
119 ap-%offset%))))))
121 label20)))
133 x-%offset%))
136 ((> k
138 j
141 nil)
146 x-%offset%)
147 (+
151 x-%offset%)
152 (* temp
156 ap-%offset%))))
158 label30))
163 x-%offset%)
164 (*
168 x-%offset%)
174 ap-%offset%))))))
177 label40)))))
198 x-%offset%)
199 (+
203 x-%offset%)
204 (* temp
208 ap-%offset%))))
210 label50))
215 x-%offset%)
216 (*
220 x-%offset%)
224 j))
226 ap-%offset%))))))
232 label60)))
238 incx)))
249 x-%offset%))
254 ((> k
258 n
261 j
263 nil)
268 x-%offset%)
269 (+
273 x-%offset%)
274 (* temp
278 ap-%offset%))))
280 label70))
285 x-%offset%)
286 (*
290 x-%offset%)
294 j))
296 ap-%offset%))))))
303 label80)))))))
320 (* temp
324 ap-%offset%))))
333 (+ temp
334 (*
338 ap-%offset%)
342 x-%offset%))))
344 label90)))
348 (* temp
353 ap-%offset%)))))
362 (+ temp
363 (*
368 ap-%offset%))
372 x-%offset%))))
374 label100))))
376 temp)
378 label110)))
384 incx)))
395 (* temp
399 ap-%offset%))))
405 ((> k
408 j)
410 nil)
414 (+ temp
415 (*
419 ap-%offset%)
423 x-%offset%))))
424 label120)))
428 (* temp
433 ap-%offset%)))))
439 ((> k
442 j)
444 nil)
448 (+ temp
449 (*
454 ap-%offset%))
458 x-%offset%))))
459 label130))))
461 temp)
464 label140)))))
479 (* temp
483 ap-%offset%))))
489 (+ temp
490 (*
494 ap-%offset%)
498 x-%offset%))))
500 label150)))
504 (* temp
509 ap-%offset%)))))
515 (+ temp
516 (*
521 ap-%offset%))
525 x-%offset%))))
527 label160))))
529 temp)
535 label170)))
548 (* temp
552 ap-%offset%))))
555 ((> k
557 n
559 j)))
560 nil)
564 (+ temp
565 (*
569 ap-%offset%)
573 x-%offset%))))
574 label180)))
578 (* temp
583 ap-%offset%)))))
586 ((> k
588 n
590 j)))
591 nil)
595 (+ temp
596 (*
601 ap-%offset%))
605 x-%offset%))))
606 label190))))
608 temp)
615 label200))))))))
617 end_label