Commit 1dd4e62f authored by David Kågedal's avatar David Kågedal
Browse files

optimerade placeringen av en defsubst

parent 6a7ff3a4
......@@ -255,17 +255,6 @@ CONF-NO is a conf-no and CONF-NO-LIST is a conf-no-list."
;;;; ================================================================
;;;; This field is just simulation of a field in the conf-stat
;;;; that not yet exist.
(defsubst conf-stat->comm-conf (conf-stat)
(if (and (conf-type->original (conf-stat->conf-type conf-stat))
(not (zerop (conf-stat->super-conf conf-stat))))
(conf-stat->super-conf conf-stat)
(conf-stat->conf-no conf-stat)))
;;; ================================================================
;;; Conf-list
......@@ -634,10 +623,6 @@ Both vectors should be of the same length."
;;; Constructors:
(defsubst lyskom-create-empty-misc-info ()
"Create an empty misc-info."
(lyskom-create-misc-info nil nil nil nil nil nil nil nil nil nil))
(defsubst lyskom-create-misc-info (type
recipient-no
local-no
......@@ -655,6 +640,10 @@ TYPE is one of RECPT, CC-RECPT COMM-TO COMM-IN FOOTN-TO or FOOTN-IN."
(vector type recipient-no local-no rec-time comm-to comm-in
footn-to footn-in sender sent-at )))
(defsubst lyskom-create-empty-misc-info ()
"Create an empty misc-info."
(lyskom-create-misc-info nil nil nil nil nil nil nil nil nil nil))
;;; Selectors:
......@@ -1574,4 +1563,15 @@ The MAPS must be consecutive. No gaps or overlaps are currently allowed."
(eq (car-safe object) 'SERVER-INFO))
;;;; ================================================================
;;;; This field is just simulation of a field in the conf-stat
;;;; that not yet exist.
(defsubst conf-stat->comm-conf (conf-stat)
(if (and (conf-type->original (conf-stat->conf-type conf-stat))
(not (zerop (conf-stat->super-conf conf-stat))))
(conf-stat->super-conf conf-stat)
(conf-stat->conf-no conf-stat)))
;;; ================================================================
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment