| blob | d8a82ee5d2ec1669e05cee92866f831996ba0c25 |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
3 ;;; "f2cl2.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
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 95098eb54f13 2013/04/01 00:45:16 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 1409c1352feb 2013/03/24 20:44:50 toy $")
10 ;;; Using Lisp CMU Common Lisp snapshot-2020-04 (21D 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))
38 label50
45 label60
47 (+
64 t$-%offset%)))))
69 double-float
72 t$-%offset%)
76 (/
81 t$-%offset%))
82 den))))
90 r-%offset%))
98 r-%offset%)
103 w-%offset%)
119 r-%offset%))
129 r-%offset%))
137 r-%offset%)
146 r-%offset%)
150 label70))
158 qt-%offset%))
163 qt-%offset%))
169 qt-%offset%)
171 label80))
179 t$-%offset%))))
184 double-float
187 t$-%offset%)
193 label90))
201 ((=
216 w-%offset%)))))
227 r-%offset%))
232 w-%offset%))
235 (/
244 r-%offset%)
245 den))
247 (/
252 w-%offset%))
253 den))))
261 r-%offset%))
266 w-%offset%))
273 r-%offset%)
278 w-%offset%)
294 r-%offset%))
304 r-%offset%))
312 r-%offset%)
321 r-%offset%)
325 label100))
333 qt-%offset%))
338 qt-%offset%))
344 qt-%offset%)
346 label110))
347 label120))
349 end_label