| blob | 14a411d86399f066c32f970983893a3f40196bdb |
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))
53 incx))))
68 (* alpha
73 x-%offset%)))
77 ((> i
80 nil)
85 ap-%offset%)
86 (+
90 ap-%offset%)
91 (*
95 x-%offset%)
96 temp)))
98 label10))
104 ap-%offset%)
106 (+
113 ap-%offset%))
115 (*
119 x-%offset%)
120 temp)))
128 ap-%offset%)
136 ap-%offset%))
139 label20)))
149 (* alpha
154 x-%offset%)))
158 ((> k
160 j
162 nil)
167 ap-%offset%)
168 (+
172 ap-%offset%)
173 (*
177 x-%offset%)
178 temp)))
180 label30))
186 ap-%offset%)
188 (+
195 ap-%offset%))
197 (*
201 x-%offset%)
202 temp)))
210 ap-%offset%)
218 ap-%offset%))
222 label40)))))
233 (* alpha
238 x-%offset%)))
242 (+
247 ap-%offset%))
249 (* temp
253 x-%offset%))))
263 ap-%offset%)
264 (+
268 ap-%offset%)
269 (*
273 x-%offset%)
274 temp)))
276 label50)))
284 ap-%offset%))
290 label60)))
300 (* alpha
305 x-%offset%)))
309 (+
314 ap-%offset%))
316 (* temp
320 x-%offset%))))
325 ((> k
327 n
329 nil)
335 ap-%offset%)
336 (+
340 ap-%offset%)
341 (*
345 x-%offset%)
346 temp)))
347 label70)))
355 ap-%offset%))
362 label80))))))
364 end_label